Aan de slag met behulp van Visual Basic for Applications ( VBA ) in Microsoft Word is niet zo ingewikkeld als u misschien denkt . VBA is een programmeertaal gebruikt in Microsoft Office-toepassingen om routinetaken te automatiseren . De snelste manier om te beginnen is door het gebruik van macro's . Een VBA- macro kunt u Word op de automatische piloot gezet doordat u een verzameling van commando's uitvoeren met een klik of een toetsaanslag . U kunt een macro op te nemen en de macro bewerken nadat het is gemaakt om meer commando's als dat nodig is toe te voegen . Instructies
Lancering Microsoft Word 1 , klikt u op het tabblad " Developer " en klik op " Macro opnemen . " Type " createTable " onder " Macro naam " en klik op de knop "OK " . Kopen van 2 Klik op het menu "Invoegen" en klik op het pictogram "Table " . Ga met je muis over de pleinen en klik op het plein met het label " 3x3 Table " om een nieuwe tabel in te voegen . Klik op het "Opname stoppen " pictogram in het deelvenster Macro's aan het opnemen van de macro te stoppen .
3 Klik op het tabblad " Developer " en klik op " Macro's " om het dialoogvenster Macro's te lanceren . Klik op de " createTable " macro die in de vorige stappen en klik op "Edit" om het venster VB editor te starten . De volgende VBA-code werd automatisch gegenereerd voor u om de tabel te maken : ActiveDocument.Tables.Add Range
: = Selection.Range , numRows : = 3 , NumColumns : = _
3 , DefaultTableBehavior : = wdWord9TableBehavior , AutoFitBehavior : . = _
wdAutoFitFixed
Met Selection.Tables ( 1 ) op Als Style < > " Tafelrooster " dan
. Style = " Tafelrooster " End
Als
. = True
. = False
. ApplyStyleFirstColumn = True
ApplyStyleLastRow ApplyStyleHeadingRows = False
= True
ApplyStyleColumnBands = False End
Met Selection.TypeText tekst
ApplyStyleLastColumn ApplyStyleRowBands : . . . = "Voornaam " Selection.MoveRight Unit
: = wdCell Selection.TypeText tekst
: = " Achternaam " Selection.MoveRight Unit
: = wdCell Selection
. TypeText Text : = " Grade "
4 Voeg de volgende VBA- code om de tabel te vullen met data :
p Met Selection.Tables ( 1 ) op . cel ( 2 , 1 ) . Range.Text = " John "
. Cell ( 2 , 2 ) . Range.Text = " Smith "
. Cell ( 2 , 3 ) . Range . tekst = " B "
. Cell ( 3 , 1 ) . Range.Text = " Oscar "
. Cell ( 3 , 2 ) . Range.Text = " Ramos " < br > . Cell ( 3 , 3 ) . Range.Text = " A + " End
met
Druk op " F5 " 5 om de macro uit te voeren . Dit zal een nieuwe tabel met drie kolommen en drie rijen te creëren , en het zal bevolken de cellen met gegevens .
|
