Word: zoeken, selecteren, verderzoeken en verwijderen van tekst
E. Hoff
Ik ben op zoek naar een macro in Word. Ik heb geprobeerd het te vinden
in fora maar ben er nog niet uitgekomen. Als iemand mij kan wijzen
waar ik de info kan vinden ben ik daar blij mee. Helemaal blij ben ik
met een oplossing die het onderstaande kan.
In een document moeten stukken tekst verwijderd worden. Deze stukken
tekst beginnen allemaal met hetzelfde woord 'Rapporteur(s)' en endigen
allemaal met '=========='. De tekst tussen deze strings is altijd
anders.
Wat ik graag wil zijn de volgende stappen:
1. Zoek in de tekst naar de eerste string
2. Ga naar het begin van de zin waarin die string voorkomt
3. Markeer het begin van de selectie
4. Zoek in de tekst naar de tweede string
5. Ga naar het begin van de zin waarin die string voorkomt
6. Markeer het einde van de selectie
7. Verwijder de selectie
8. herhaal de bovenstaande stappen tot de eerste string niet meer
gevonden wordt.
Als het helemaal 'luxe' uitgebreid kan worden met het verwijderen van
alle dubbele lege regels.
Ik hoop dat ik hier hulp kan vinden. Alvast bedankt voor de repons.
Eelco H.
Dave
Je kunt een dergelijke macro zelf opnemen (dus niet schrijven, maar de
handelingen die jij verricht opnemen) via Extra / Macro. Eerst een keer de
stappen oefenen, zodat je precies weet wat je moet doen en dan opnemen. Het
is eigenlijk heel eenvoudig. Vooropgesteld dat 'Rapporteur' aan het begin van
een regel staat.
Zoek via Ctrl f naar 'Rapporteur' (de 's' doet niet ter zake).
Druk op Home.
Druk op F8 (alles cursor beweging hierna worden geselecteerd).
Zoek naar '=^p' (de ^p neemt de ENTER mee in de selectie).
Druk op Delete.
Druk op Ctrl q (deze toetscombinatie is in mijn Word2003 nog niet toegewezen
aan iets en wordt straks de toetscombinatie voor de nieuwe macro).
Wanneer je dit opneemt, geef je de macro een voor jou herkenbare naam. Als
je hem in een specifiek document(sjabloon) wilt hebben, kun je dat later ook
opgeven. De toetscombinatie kun je hem ook voor je de macro opneemt
toewijzen. Geef in ieder geval een goede beschrijving, zodat je over 5 jaar
kunt achterhalen wat deze macro doet.
Via Extra / Aanpassen kun je je eigen macro opzoeken en op een werkbalk
plaatsen en een knop toewijzen, indien dat interessant is.
De macro herhaalt zichzelf zonder dat hij afvangt dat het einde van het
document is bereikt - VBA-ers zullen dat minder fraai vinden. Het is echter
geen probleem, aangezien Word controleert bij elke zoekopdracht of het einde
van het doc is bereikt en vraagt of je door wilt gaan met het begin van het
document. Op het moment dat jij "Nee" antwoord, houdt de macro toch op. Hoezo
"niet fraai"???
Natuurlijk kun je wachten tot iemand je de kant en klare code aanreikt, maar
het geeft een stuk voldoening om het zelf te doen. Trust me!
Als je deze macro verspreidt, moeten de gebruikers de macro beveiliging
lager instelling, ik geloof tot de macro 1x gewerkt heeft. Een
systeembeheerder zal hierover problemen maken. Maar dat zal ook met een
geprogrammeerde macro het geval zijn, dus dat maakt voor mijn opneem methode
niets uit.
Mochten er nog extra Enters overblijven, dan kun je die evt. meenemen in je
selectie, door nog 1 regel naar beneden te gaan met de cursor knop voordat je
op Escape drukt of door in de laatste zoekopdracht te zoeken naar '=^p^p'.
Als het aantal Enters niet consequent is, dan kun je dit niet feiloos
meenemen in deze zoekopdracht/macro. Dan zul je zelf even (na het afwerken
van de macro) op Ctrl h moeten drukken en laten zoeken naar ^p^p en dat
vervangen met niets (Alles vervangen tot Word aangeeft dat er 0 vervangingen
zijn gedaan). Dat is zo eenvoudig, dat het niet de moeite waard is om er een
macro voor op te nemen.
David
> allemaal met '=========='
Dave
Oeps, in de reeks van op te nemen handelingen ben ik vergeten om net voor de
handeling "Druk op Delete" de handeling "Druk op Esc" te vermelden.
David