Microsoft Word heeft een krachtige scripttaal genaamd Visual Basic , die u kunt gebruiken om elke taak in Word te automatiseren . U kunt Visual Basic scripts , macro's genoemd , creëren door ze te registreren , of door handmatig hen in de Visual Basic IDE ( Integrated Development Environment ) van Word.One van de meest voorkomende taken die Word-gebruikers hoeft te doen is het vinden en vervangen van tekst . Terwijl Word de bestaande functionaliteit voor zoeken en vervangen is makkelijk te gebruiken , kan Visual Basic maakt het nog makkelijker . Enter en voer de volgende macro om te leren hoe te vinden en te vervangen met Visual Basic . Maak het Programma
U vindt hier een korte programma te maken door deze direct in de Visual Basic IDE . Maar je moet eerst een sample document om het programma te testen met . Binnen Word , opent een nieuw document en sla het op met de naam " vbReplace.doc . " Kopieer veel tekst uit een ander document en plak het in vbReplace.doc . Druk alt - F11
om de Visual Basic IDE invoeren en uitbreiden van het Project vbReplace subtree in het deelvenster Project . Vouw de map Microsoft Word Objecten en dubbelklik op het pictogram ThisDocument . Visual Basic plaatsen de cursor in het venster code . Voer de volgende code in dat venster . Public Sub mac ( ) op Dim mijnBereik als Waaier
' doe het met de huidige paragraphSet mijnBereik = Selection.Paragraphs ( 1 ) . Range
Met myRange.FindClearFormatting.Font.Bold = False.Format = True.Replacement.ClearFormatting.Replacement.Font.Bold = True.Execute Forward : = True , vervangen : = wdReplaceAll , _FindText : = " de " , replaceWith : = " de " , MatchWholeWord : = TrueEnd metend Sub
Voer het programma
Nu het programma klaar is, is het tijd om het te testen . Keer terug naar het Word-document door op alt - F11 en plaats de cursor in een typische paragraaf , vooral een die veel exemplaren van het woord " de ". Run je macro door op alt - F8 om naar de lijst van macro's , het selecteren van " mac " uit de lijst en druk op Uitvoeren . Als er geen niet- vetgedrukte exemplaren van De in de paragraaf waar u de cursor geplaatst , ze zijn nu allemaal vet .
Wijzig het Programma
hebben een macro van een enkel type van zoeken en vervangen doen heeft een aantal gebruiken , maar de mogelijkheid om de macro gemakkelijk aanpassen aan verschillende soorten vervangende operaties te dekken is een echte productiviteit booster . Opnieuw invoeren van de Visual Basic IDE ( alt - F11 ) en navigeer naar de door u ingevoerde code , met behulp van het deelvenster Project zoals eerder beschreven . Change of the Mac sub zodat het blijkt een deel van de " The " woorden je vet weergegeven in cursieve " la " s . Deze tijd, zult u de vervanging operatie te beperken om te werken alleen op een zin . Hier zijn de enige lijnen die u nodig hebt om te veranderen : . . . Set mijnBereik = Selection.Paragraphs
( 1 ) Bereik wordt Stel mijnBereik = Selection.Sentences ( 1 ) Font.Bold = False wordt Font.Bold = true . Replacement.Font.Bold = True wordt Replacement.Font.italic = True.ReplaceWith : . = " het " wordt replaceWith : = " la "
Voer het herziene programma
Nu zult u het programma te testen op dezelfde manier waarop je de originele versie getest . Keer terug naar het Word-document en plaats de cursor in een zin met een aantal gewaagde gevallen van " The . " Run uw herziene macro met behulp van de stappen die u gebruikt om de originele versie uit te voeren . Kijken naar de bold " de " s om te zetten in " la " s . Merk ook op dat de huidige straf werd getroffen in plaats van de hele paragraaf .
|
