Komme i gang ved hjelp av Visual Basic for Applications ( VBA ) i Microsoft Word er ikke så komplisert som du kanskje tror . VBA er et programmeringsspråk som brukes i Microsoft Office-programmer for å automatisere rutineoppgaver . Den raskeste måten å komme i gang er gjennom bruk av makroer . En VBA makro kan du sette ord på autopilot ved at du kan utføre en samling av kommandoer med ett klikk eller ett tastetrykk. Du kan spille inn en makro og redigere makroen etter at det har blitt opprettet for å legge til flere kommandoer etter behov. Instruksjoner
en

Launch Microsoft Word , klikk på " Developer " og klikk " Registrer makro ". Type " createTable " nedenfor "Macro name" og klikk " OK "-knappen .
2

Klikk på " Insert"-menyen og klikk på "Table "-ikonet . Dra musen over rutene og klikk på firkanten merket " 3x3 Table" for å sette inn en ny tabell . Klikk på "Stop Recording "-ikonet i Makroer -ruten for å stoppe innspillingen av makroen.
3

Klikk på " Developer " og klikk " makroer " for å starte makroer dialogvinduet. Klikk på " createTable " makro opprettet i de forrige trinnene , og klikk "Rediger " for å starte VB Editor vinduet. Følgende VBA-kode ble automatisk generert for deg å lage bordet : en

ActiveDocument.Tables.Add Range : = Selection.Range , NumRows : = 3 , NumColumns : = _

3 , DefaultTableBehavior : = wdWord9TableBehavior , AutoFitBehavior : . = _

wdAutoFitFixed
p Med Selection.Tables ( 1 )
p Hvis stil < > "Table Grid " Da
< p> . style = "Table Grid "

End If

. ApplyStyleHeadingRows = sant

. ApplyStyleLastRow = False

. ApplyStyleFirstColumn = sant

ApplyStyleLastColumn = False

ApplyStyleRowBands = sant

ApplyStyleColumnBands = False

End With

Selection.TypeText Tekst: . . . = " Fornavn "

Selection.MoveRight Enhet: = wdCell

Selection.TypeText Tekst: = " Last Name "

Selection.MoveRight Enhet: = wdCell

Selection . TypeText Tekst: = " Grade"
4

Legg til følgende VBA-kode til å fylle bordet med data : en p Med Selection.Tables ( 1 )

. Cell ( 2 , 1 ) . Range.Text = " John"

. Cell ( 2, 2 ) . Range.Text = "Smith "

. Cell ( 2, 3 ) . Range . Text = "B"

. Cell ( 3, 1 ) . Range.Text = " Oscar"

. Cell ( 3, 2 ) . Range.Text = " Ramos "

. Cell ( 3 , 3 ) . Range.Text = "A +"

End With
5

Trykk " F5 " for å kjøre makroen . Dette vil skape en ny tabell med tre kolonner og tre rader , og det vil fylle cellene med data .