Komma igång med Visual Basic for Applications ( VBA ) i Microsoft Word är inte så komplicerat som du kanske tror . VBA är en dator programmeringsspråk som används i Microsoft Office-program för att automatisera rutinuppgifter . Det snabbaste sättet att komma igång är genom användning av makron . Ett VBA-makro kan du sätta ord på autopilot genom att du kan köra en samling av kommandon med ett klick eller en tangenttryckning . Du kan spela in ett makro och redigera makrot efter att den har skapats för att lägga till fler kommandon som behövs . Instruktioner
1
Launch Microsoft Word , klicka på " Utvecklare " fliken och klicka på " Spela in makro . " Typ " createTable " nedanför " Macro name" och klicka på " OK " -knappen .
2
Klicka på " Infoga " -menyn och klicka på " Tabell " -ikonen . Dra musen över rutorna och klicka på rutan märkt " 3x3 tabell " för att infoga en ny tabell . Klicka på "Stop Recording " -ikonen i Makron fönstret för att stoppa inspelningen av makrot .
3
Klicka på " Utvecklare " -fliken och klicka på " Makron " för att starta dialogrutan Makron fönstret . Klicka på " createTable " macro skapade i föregående steg och klicka på " Redigera " för att starta VB Editor fönstret . Följande VBA-kod skapades åt dig att skapa tabellen :
ActiveDocument.Tables.Add Range : = Selection.Range , NumRows : = 3 , NumColumns : = _
3 , DefaultTableBehavior : = wdWord9TableBehavior , AutoFitBehavior : . = _
wdAutoFitFixed
Selection.Tables ( 1 ) katalog p Om Style < > " Tabellrutnät " Då
. Style = " Table Grid "
End If
. ApplyStyleHeadingRows = Sant
. ApplyStyleLastRow = False
. ApplyStyleFirstColumn = Sant
ApplyStyleLastColumn = False
ApplyStyleRowBands = Sant
ApplyStyleColumnBands = False
End With
Selection.TypeText Text : . . . = " Förnamn "
Selection.MoveRight Enhet : = wdCell
Selection.TypeText Text : = " Efternamn "
Selection.MoveRight Enhet : = wdCell
Selection . TypeText Text : = " Grade "
4
Lägg följande VBA-kod för att fylla tabellen med data :
Selection.Tables ( 1 ) katalog
. 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
Tryck " F5 " för att köra makrot . Detta kommer att skapa en ny tabell med tre kolumner och tre rader , och det kommer att befolka celler med data .
