Columns-Objekt (Word)
Eine Auflistung von Column -Objekten, die die Spalten in einer Tabelle darstellen.
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
Name |
---|
Application |
Borders |
Count |
Creator |
First |
Last |
NestingLevel |
Parent |
PreferredWidth |
PreferredWidthType |
Shading |
Width |
Referenz zum Word-Objektmodell
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.