Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Gibt ein Table-Objekt zurück, das eine neue leere Tabelle darstellt, die zu einem Dokument hinzugefügt wurde.
Syntax
Ausdruck. Hinzufügen (Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior)
expression Erforderlich. Eine Variable, die eine Tables-Auflistung darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Range | Erforderlich | Range-Objekt | Der Bereich, in dem die Tabelle angezeigt werden soll. Die Tabelle ersetzt den Bereich, wenn der Bereich nicht reduziert ist. |
| NumRows | Erforderlich | Long | Die Anzahl der Zeilen, die die Tabelle umfassen soll. |
| NumColumns | Erforderlich | Long | Die Anzahl der Spalten, die die Tabelle umfassen soll. |
| DefaultTableBehavior | Optional | Variant | Legt einen Wert fest, der angibt, ob Microsoft Word die Größe von Zellen in Tabellen automatisch an den Inhalt der Zellen ändert (AutoAnpassen). Kann eine der folgenden Konstanten sein: wdWord8TableBehavior (AutoFit deaktiviert) oder wdWord9TableBehavior (AutoFit aktiviert). Die Standardkonstante ist wdWord8TableBehavior. |
| AutoFitBehavior | Optional | Variant | Legt die Regeln für AutoAnpassen fest, nach denen die Tabellengröße in Word geändert wird. Dies kann eine der folgenden WdAutoFitBehavior-Konstanten sein: |
Rückgabewert
Tabelle
Beispiel
In diesem Beispiel wird eine leere Tabelle mit drei Zeilen und vier Spalten am Anfang des aktiven Dokuments hinzugefügt.
Set myRange = ActiveDocument.Range(0, 0)
ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4
In diesem Beispiel wird eine neue, leere Tabelle mit sechs Zeilen und zehn Spalten am Ende des aktiven Dokuments hinzugefügt.
Set MyRange = ActiveDocument.Content
MyRange.Collapse Direction:=wdCollapseEnd
ActiveDocument.Tables.Add Range:=MyRange, NumRows:=6, _
NumColumns:=10
In diesem Beispiel wird eine Tabelle mit drei Zeilen und fünf Spalten zu einem neuen Dokument hinzugefügt, und anschließend werden Daten in jede Zelle der Tabelle eingefügt.
Sub NewTable()
Dim docNew As Document
Dim tblNew As Table
Dim intX As Integer
Dim intY As Integer
Set docNew = Documents.Add
Set tblNew = docNew.Tables.Add(Selection.Range, 3, 5)
With tblNew
For intX = 1 To 3
For intY = 1 To 5
.Cell(intX, intY).Range.InsertAfter "Cell: R" & intX & ", C" & intY
Next intY
Next intX
.Columns.AutoFit
End With
End Sub
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.