Kom godt i gang ved hjælp af Visual Basic for Applications ( VBA ) i Microsoft Word er ikke så kompliceret som du måske tror . VBA er et edb-programmering sprog, der anvendes i Microsoft Office-programmer til at automatisere rutineopgaver. Den hurtigste måde at komme i gang er gennem brug af makroer . En VBA-makro giver dig mulighed for at sætte ord på autopilot ved at tillade dig at udføre en samling af kommandoer med et enkelt klik eller et tastetryk . Du kan optage en makro og redigere makroen efter den er blevet skabt for at tilføje flere kommandoer efter behov. Instruktioner
1

Launch Microsoft Word, skal du klikke på "Udvikler " fanen og klik på " Indspil makro ". Type " createTable " nedenfor "Macro navn " og klik på "OK" knappen .
2

Klik på " Indsæt" menuen og klik på "Table "-ikonet. Træk musen hen over torve og klik pladsen mærket " 3x3 tabel " for at indsætte en ny tabel . Klik på " Stop Recording " ikonet i Makroer rude for at stoppe optagelsen af ​​makroen.
3

Klik på " Udvikler " fanen og klik på " makroer" at lancere Makroer dialogvinduet . Klik på " createTable " makro skabt i de foregående trin , og klik på " Rediger " for at starte VB Editor vinduet. Den følgende VBA-kode blev automatisk genereret for dig at oprette tabellen : Hej

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

3 DefaultTableBehavior : = wdWord9TableBehavior , AutoFitBehavior : . = _

wdAutoFitFixed

Selection.Tables (1)
p Hvis Style < > " Table Grid " Så
< p> . Style = "Table Grid "

End If

. ApplyStyleHeadingRows = Sand

. ApplyStyleLastRow = False

. ApplyStyleFirstColumn = Sand

ApplyStyleLastColumn = False

ApplyStyleRowBands = Sand

ApplyStyleColumnBands = False

End With

Selection.TypeText Text: . . . = "Fornavn "

Selection.MoveRight enhed: = wdCell

Selection.TypeText Text: =" Efternavn "

Selection.MoveRight enhed: = wdCell

Selection . TypeText Text: = " Grade"
4

Føj følgende VBA-kode til at udfylde tabellen med data : Hej

Selection.Tables (1)

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

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

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

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

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

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

End With
5

Tryk på " F5 " for at køre makroen. Dette vil skabe en ny tabel med tre kolonner og tre rækker , og det vil befolke cellerne med data.