Weten hoe u Microsoft Visual Basic for Applications ( VBA ) in Microsoft Word kan heel nuttig zijn . Word is een tekstverwerkingsprogramma opgenomen in de Microsoft Office suite . VBA wordt vaak gebruikt om routinematige taken in Word en andere Microsoft Office-toepassingen te automatiseren . Een goed moment om VBA te gebruiken in Word zou zijn als je die nodig zijn om 500 tabellen invoegen in een document en voeg veldnamen om ze allemaal . Het volgende is een klein voorbeeld van hoe u VBA kunt gebruiken in Word , maar u kunt VBA gebruiken om andere repetitieve taken te automatiseren . Instructies
1 Open Microsoft Office Word 2007 , klikt u op het tabblad " Developer " en selecteer " Visual Basic . " Selecteer in het menu "Invoegen" en selecteer
Type 2 het volgende om een nieuwe subroutine creëren " Module . " : Private Sub useVBinWord
( ) Pers Nieuws " Voer "
Type 3 de volgende twee regels tekst in te voegen: Selection.TypeText tekst
: = " . ik ben het invoegen van deze tekst aan dit Word-document . " Selection.TypeParagraph Selection.TypeText tekst
: = " ik ga ook deze tabel in te voegen : " Selection.TypeParagraph
4 Typ het volgende om een tabel in te voegen met vier kolommen en vier rijen : ActiveDocument.Tables.Add Range
: = Selection.Range , numRows : = 4 , NumColumns : = _
4 , DefaultTableBehavior : = wdWord9TableBehavior , AutoFitBehavior : . = _
wdAutoFitFixed
Met Selection.Tables ( 1 ) op Als Style < > " Tafelrooster " dan < br . Style > = " Tafelrooster " End
Als
. ApplyStyleHeadingRows = True
. ApplyStyleLastRow = False
. ApplyStyleFirstColumn = True
. = False
. = True
. ApplyStyleColumnBands ApplyStyleLastColumn ApplyStyleRowBands = False Einde
Met
Type 5 de aanleiding om veldnamen toe te voegen aan de tabel kolommen : Selection.TypeText tekst
: = " Veld1 " Selection.MoveRight Unit
: = wdCell Selection.TypeText tekst
: = " Field2 " Selection.MoveRight Unit
: = wdCell Selection.TypeText tekst
: = " Field3 " Selection.MoveRight Unit
: = wdCell
Selection.TypeText tekst : . = " Field4 " Druk op " F5 "
uw subroutine draaien
|
