Visual Basic for Applications ( VBA ) is een programmeertaal die wordt gebruikt om de taken in Microsoft Word te automatiseren . Met Visual Basic kunt u elke bewerking die je kunt doen in Word zonder Visual Basic , maar sneller doen . Dit geldt met name voor activiteiten die vele subtaken , zoals het zoeken naar een woord , gevolgd door een woord keuze , gevolgd door formatting.The volgende voorbeeldcode laat zien hoe u kunt beginnen met behulp van VBA naar praktische oplossingen voor veel voorkomende tekstverwerking problemen opleveren omvatten . Geef het voorbeeld code in de IDE
Open MS Word en ga naar de Visual Basic IDE ( Integrated Development Environment ) door op alt - F11 .
In het venster , voer de volgende programmacode . Public Sub mac
( ) Dim r Zoals RangeDim w Als RangeDim i Als IntegerDim t As String
Options.DefaultHighlightColorIndex Set
r = Selection.Range r.StartOf
( wdParagraph ) r.Expand
= TrueWith r.Find.Text = " is " . Replacement.Text = "is " . Forward = True.Wrap = wdFindStop.Format = True.MatchCase = False.MatchWholeWord = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd Withr.Find.Execute Replace: = wdReplaceAll End Sub
U kunt een gevoel van wat dit programma zal doen door op te merken bepaalde zoekwoorden binnen het te krijgen : paragraaf , vinden , en de selectie , voor voorbeeld . Het programma vindt en belicht alle voorkomens van een woord dat u opgeeft , binnen de huidige paragraaf Notice
deze twee lijnen in de code : . . Tekst = " is " Replacement.Text = " is "
< . p > Die lijnen vertellen Woord wat te zoeken . In plaats van die " is " s , voer wat woord of tekst die u wilt zoeken en te markeren .
Het programma uitvoeren
Terug
te woord ( alt - F11 ) , en voer een paar punten ter waarde van de tekst . Die leden moeten minstens een paar exemplaren van de genoemde zoekterm die u hebt gekozen bevatten .
Als u klaar bent met het invoeren van de tekst , plaatst u de cursor in een van de paragrafen . Voer het programma : kies alt - F8 om het venster macro - replay brengen . Selecteer de " mac " macro en druk op Uitvoeren . Als Word vindt zich een geval van de zoekterm die u hebt opgegeven , in de paragraaf waarin de cursor , wordt het woord markeren .
Begrijp het aan Tailor het
typen in een enkel script kan uw workflow een beetje te verbeteren . Maar als je begrijpt hoe het script werkt , je begint om je workflow sterk verbeteren , en op een eeuwigdurende basis . Terug
om de Visual Basic IDE en kijk naar de programmacode in de mac -functie . Merk op hoe de mac functie krijgt om de huidige paragraaf zijn vervangen werking doen : het ziet er op de Selection -object , die de momenteel geselecteerde tekst of insertie punt vertegenwoordigt . Vervolgens , met behulp van interne representatie van Word van het document , het script " leapfrogs " van de huidige invoegpositie tot aan het begin van de paragraaf die het invoegpunt bevat .
Dit soort beweging wordt mogelijk gemaakt door een netwerk van verbindingen binnen VBA voor Word . De huidige selectie is gekoppeld aan het huidige woord , de huidige zin en de huidige paragraaf . Specifiek , mac koppelingen of leapfrogs uit de huidige selectie naar het begin van de huidige paragraaf ( Set r = Selection.Range en r.StartOf ( wdParagraph ) ) . Op dat punt , r is maar een invoegpunt , maar we willen dat het verwijzen naar de hele paragraaf , dus we breiden het met r.Expand wdParagraph . Als u wilt dat alleen de huidige zin in plaats van de huidige paragraaf doorzoeken , moet u alle exemplaren van wdParagraph in de programmacode met wdSentence .
|
