Columns-Objekt (Word)

Eine Auflistung von Column -Objekten, die die Spalten in einer Tabelle darstellen.

HinwBemerkungeneise

Sie können die Columns-Eigenschaft eines Range-, Selection- oder Table-Objekts verwenden, um eine Columns-Auflistung zurückzugeben. Im folgenden Beispiel wird die Anzahl der Column-Objekte in der Columns-Auflistung für die erste Tabelle im aktiven Dokument angezeigt.

MsgBox ActiveDocument.Tables(1).Columns.Count

Im folgenden Beispiel wird eine Tabelle mit sechs Spalten und drei Zeilen erstellt. Anschließend werden die einzelnen Spalten mit einem jeweils progressiv steigenden (dunkleren) Schattierungsprozentsatz formatiert.

Set myTable = ActiveDocument.Tables.Add(Range:=Selection.Range, _ 
 NumRows:=3, NumColumns:=6) 
For Each col In myTable.Columns 
 col.Shading.Texture = 2 + i 
 i = i + 1 
Next col

Verwenden Sie die Add -Methode, um eine Tabelle eine Spalte hinzuzufügen. Im folgenden Beispiel wird der ersten Tabelle im aktiven Dokument eine Spalte hinzugefügt und dann den Spalten die gleiche Breite zugewiesen.

If ActiveDocument.Tables.Count >= 1 Then 
 Set myTable = ActiveDocument.Tables(1) 
 myTable.Columns.Add BeforeColumn:=myTable.Columns(1) 
 myTable.Columns.DistributeWidth 
End If

Verwenden Sie Columns (Index), wobei Index die Indexnummer ist, um ein einzelnes Column-Objekt zurückzugeben. Die Indexnummer stellt die Position der Spalte in der Columns -Auflistung (von links nach rechts gezählt). Im folgenden Beispiel wird die erste Spalte in der ersten Tabelle ausgewählt.

ActiveDocument.Tables(1).Columns(1).Select

Methoden

Name
Add
AutoFit
Delete
DistributeWidth
Element
Select
SetWidth

Eigenschaften

Name
Anwendung
Borders
Count
Creator
First
Last
NestingLevel
Parent
PreferredWidth
PreferredWidthType
Shading
Width

Siehe auch

Referenz zum Word-Objektmodell

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.