Wissen, wie man Microsoft Visual Basic für Applikationen ( VBA) in Microsoft Word verwenden kann sehr hilfreich sein . Word ist ein Textverarbeitungsprogramm in der Microsoft Office-Suite enthalten. VBA wird häufig verwendet, um Routineaufgaben in Word und anderen Microsoft Office-Anwendungen automatisieren. Ein guter Zeitpunkt, um VBA in Word verwenden wäre, wenn Sie zu 500 Tabellen in ein Dokument einzufügen , und fügen Sie Feldnamen für alle von ihnen benötigt. Das folgende ist ein kleines Beispiel dafür, wie Sie VBA in Word verwenden , aber Sie können VBA verwenden, um andere sich wiederholende Aufgaben zu automatisieren. Anleitung
1

Öffnen Sie Microsoft Office Word 2007 , klicken Sie auf die Registerkarte "Entwicklertools" und wählen Sie " Visual Basic. " Wählen Sie das Menü "Einfügen" und wählen
2

Geben Sie den folgenden , um eine neue Subroutine erstellen "Module . ":

Private Sub useVBinWord ()

Presse " Geben Sie "
3

Geben Sie den folgenden zwei Zeilen Text einfügen :

Selection.TypeText Text: =" . ich bin die Einfügung dieses Textes zu diesem Word-Dokument. "

Selection.TypeParagraph

Selection.TypeText Text: = " Ich werde auch diese Tabelle einfügen: "

Selection.TypeParagraph
4

Geben Sie den folgenden , um eine Tabelle mit vier Spalten und vier Zeilen einfügen :

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

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

wdAutoFitFixed

Selection.Tables ( 1) german

Wenn Design <> "Table Grid" Dann

. Style = "Table Grid"

End If

. ApplyStyleHeadingRows = True

. ApplyStyleLastRow = False

. ApplyStyleFirstColumn = True

. ApplyStyleLastColumn = False

. ApplyStyleRowBands = True

. ApplyStyleColumnBands = False End With

5

Typ der nach Feldnamen zu den Spalten der Tabelle hinzuzufügen :

Selection.TypeText Text: = " Feld1 "

Selection.MoveRight Einheit: = wdCell

Selection.TypeText Text: = " Feld2 "

Selection.MoveRight Einheit: = wdCell

Selection.TypeText Text: = " Field3 "

Selection.MoveRight Einheit: = wdCell

Selection.TypeText Text: . = " Field4 "

Presse "F5" auf Ihrer Unterroutine ausführen