<< Click to Display Table of Contents >> Tables (Sammlung) |
Zugriffspfade:
▪Application à Documents à Item à Tables
▪Application à ActiveDocument à Tables
1 Beschreibung
Tables ist eine Sammlung aller Tabellen eines Dokuments. Die einzelnen Elemente dieser Sammlung sind vom Typ Table.
2 Zugriff auf die Sammlung
Jedes geöffnete Dokument besitzt genau eine Instanz der Tables-Sammlung. Diese wird über Document.Tables angesprochen:
' Anzahl der Tabellen des aktiven Dokuments anzeigen
MsgBox tm.ActiveDocument.Tables.Count
3 Eigenschaften, Objekte, Sammlungen und Methoden
Eigenschaften:
▪Count R/O
Objekte:
▪Item → Table (Defaultobjekt)
▪Application → Application
▪Parent → Document
Methoden:
▪Add
Count (Eigenschaft, R/O)
Datentyp: Long
Liefert die Anzahl der Table-Objekte des Dokuments – in anderen Worten: die Anzahl der Tabellen im Dokument.
Item (Zeiger auf Objekt)
Datentyp: Object
Liefert ein einzelnes Table-Objekt, also eine einzelne Tabelle.
Welches Table-Objekt Sie erhalten, hängt von dem Parameter ab, den Sie an Item übergeben. Dies kann entweder der numerische Index oder der Name der gewünschten Tabelle sein. Beispiele:
' Die Zahl der Zeilen in der ersten Tabelle anzeigen
MsgBox tm.Tables.Item(1).Rows.Count
' Die Zahl der Zeilen in der Tabelle "Tabelle1" anzeigen
MsgBox tm.Tables.Item("Tabelle1").Rows.Count
Application (Zeiger auf Objekt)
Datentyp: Object
Liefert das Application-Objekt.
Parent (Zeiger auf Objekt)
Datentyp: Object
Liefert das übergeordnete Objekt, also ein Objekt vom Typ Document.
Add (Methode)
Fügt dem Dokument an der aktuellen Selektion eine neue Tabelle hinzu.
Syntax:
Add NumRows, NumColumns
Parameter:
NumRows (Typ: Long) legt die Zahl der Zeilen der neuen Tabelle fest. Geben Sie 0 oder einen Wert kleiner als Null an, wird der Standardwert 3 verwendet. |
NumColumns (Typ: Long) legt die Zahl der Spalten der neuen Tabelle fest. Geben Sie 0 oder einen Wert kleiner als Null an, wird der Standardwert 3 verwendet. |
Rückgabetyp:
Object (ein Table-Objekt, das die neue Tabelle repräsentiert) |
Beispiele:
' Dem Dokument eine 3*3-Tabelle hinzufügen
tm.ActiveDocument.Tables.Add 3, 3
' dito, aber mit der Tabelle als Objekt direkt weiterarbeiten
Dim newTable as Object
Set newTable = tm.ActiveDocument.Tables.Add(3, 3)
MsgBox newTable.Rows.Count ' Zahl der Tabellenzeilen anzeigen