Yshopnoosa.com

Hur du kommer igång med VBA med Microsoft Word

Hur du kommer igång med VBA med Microsoft Word

Komma igång med Visual Basic for Applications (VBA) i Microsoft Word är inte så komplicerat som du kanske tror. VBA är ett dator-programmeringsspråk som används i Microsoft Office-program för att automatisera rutinuppgifter. Det snabbaste sättet att komma igång är med hjälp av makron. Ett VBA-makro kan du sätta ord på autopilot genom att du kan köra en uppsättning kommandon med ett klick eller en tangenttryckning. Du kan spela in ett makro och redigera makrot har skapats för att lägga till fler kommandon som behövs.

Instruktioner

1 Starta Microsoft Word, klicka på fliken "Utvecklare" och klicka på "Spela in makro." Skriv "createTable" under "Makronamn" och klicka på knappen "OK".

2 Klicka på "Infoga"-menyn och klicka på ikonen "Bord". Dra musen över rutorna och klicka på torget märkt "3 x 3 tabell" Infoga en ny tabell. Klicka på ikonen "Stoppa inspelning" i rutan makron vill sluta spela in makrot.

3 Klicka på fliken "Utvecklare" och klicka på "Makron" för att starta makron dialogfönstret. Klicka på makrot "createTable" skapade i föregående steg och klicka på "Redigera" för att starta det VB Editor-fönstret. Följande VBA-kod genereras automatiskt för dig att skapa tabellen:

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

3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _

wdAutoFitFixed

With Selection.Tables(1)

If .Style <> "Table Grid" Then

.Style = "Table Grid"

End If

.ApplyStyleHeadingRows = True

.ApplyStyleLastRow = False

.ApplyStyleFirstColumn = True

.ApplyStyleLastColumn = False

.ApplyStyleRowBands = True

.ApplyStyleColumnBands = False

End With

Selection.TypeText Text:="First Name"

Selection.MoveRight Unit:=wdCell

Selection.TypeText Text:="Last Name"

Selection.MoveRight Unit:=wdCell

Selection.TypeText Text:="Grade"4

Lägg till följande VBA-kod för att fylla tabellen med data:

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 With5

Tryck på "F5" för att köra makrot. Detta kommer att skapa en ny tabell med tre kolumner och tre rader, och det fyller celler med data.