Erste Schritte mit Visual Basic für Applikationen (VBA) in Microsoft Word ist nicht so kompliziert, wie Sie vielleicht denken. VBA ist eine Programmiersprache in Microsoft Office-Anwendungen verwendet, um Routineaufgaben zu automatisieren . Der schnellste Weg, um loszulegen ist durch den Einsatz von Makros. Ein VBA- Makro können Sie Word auf Autopilot setzen , indem Sie eine Sammlung von Befehlen mit einem Mausklick oder einem Tastendruck ausführen . Sie können ein Makro aufzeichnen und bearbeiten Sie das Makro , nachdem es geschaffen wurde, um mehrere Befehle nach Bedarf hinzufügen . Anleitung
1
Starten Sie Microsoft Word auf die Registerkarte "Entwicklertools" und klicken Sie auf " Makro aufzeichnen ". Type " createTable " unterhalb " Makroname " und klicken Sie auf die Schaltfläche "OK" .
2
Klicken Sie auf das Menü "Einfügen" und klicken Sie auf " Tabelle "-Symbol. Ziehen Sie mit der Maus über die Quadrate und klicken Sie auf den Platz mit der Bezeichnung " 3x3 Table" , um eine neue Tabelle einfügen . Klicken Sie auf " Stop Recording "-Symbol in der Makro- Bereich, um die Aufzeichnung des Makros .
3
Klicken Sie auf die Registerkarte "Entwicklertools" und klicken Sie auf "Makros ", um das Dialogfenster Makros starten. Klicken Sie auf " createTable " makro in den vorherigen Schritten erstellt und klicken Sie auf " Bearbeiten ", um den VB -Editor-Fenster starten. Das folgende VBA-Code automatisch generiert wurde für Sie die Tabelle erstellen :
ActiveDocument.Tables.Add Bereich: = Selection.Range , NumRows : = 3 , NumColumns : = _
3 , DefaultTableBehavior : = wdWord9TableBehavior , AutoFitBehavior : . = _
wdAutoFitFixed
Selection.Tables ( 1) german
Wenn Design <> "Table Grid" Dann
< p> . Style = "Table Grid"
End If
. ApplyStyleHeadingRows = True
. ApplyStyleLastRow = False
. ApplyStyleFirstColumn = True
ApplyStyleLastColumn = False
ApplyStyleRowBands = True
ApplyStyleColumnBands = False End With
Selection.TypeText Text: . . . = " Vorname "
Selection.MoveRight Einheit: = wdCell
Selection.TypeText Text: = " Nachname "
Selection.MoveRight Einheit: = wdCell
Selection . TypeText Text: = " Grade"
4
Fügen Sie den folgenden VBA-Code , um die Tabelle mit Daten zu füllen :
Selection.Tables ( 1) german
. Zelle ( 2 , 1). Range.Text = " John "
. Zelle ( 2 , 2). Range.Text = " Smith "
. Zelle ( 2, 3) . Reichweite . Text = "B"
. Zelle ( 3 , 1). Range.Text = "Oscar"
. Zelle ( 3, 2) . Range.Text = " Ramos "
. Zelle ( 3 , 3). Range.Text = " A +"
End With
5
Presse "F5 ", um das Makro auszuführen. Dadurch wird eine neue Tabelle mit drei Spalten und drei Zeilen , und es werden die Zellen mit Daten zu füllen .