Columns-Objekt (Publisher)
Eine Auflistung von Column -Objekten, die die Spalten in einer Tabelle darstellen.
Verwenden Sie die Spalten -Eigenschaft der Tabelle Objekt, das die Columns -Auflistung zurückzugeben.
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).
Verwenden Sie die Add -Methode, um eine Tabelle eine Spalte hinzuzufügen.
Im folgenden Beispiel wird die Anzahl der Column -Objekte in der Columns -Auflistung für die erste Tabelle im aktiven Dokument angezeigt.
Sub CountColumns()
MsgBox "The number of columns in the table is " & _
ActiveDocument.Pages(2).Shapes(1).Table.Columns.Count
End Sub
Bei diesem Beispiel wird in jede Zelle der angegebenen Tabelle eine fett formatierte Zahl eingefügt. Es wird davon ausgegangen, dass es sich bei der angegebenen Form um eine Tabelle und nicht um eine andere Form handelt.
Sub CountCellsByColumn()
Dim shpTable As Shape
Dim colTable As Column
Dim celTable As Cell
Dim intCount As Integer
intCount = 1
Set shpTable = ActiveDocument.Pages(2).Shapes(1)
For Each colTable In shpTable.Table.Columns
For Each celTable In colTable.Cells
With celTable.Text
.Text = intCount
.ParagraphFormat.Alignment = _
pbParagraphAlignmentCenter
.Font.Bold = msoTrue
intCount = intCount + 1
End With
Next celTable
Next colTable
End Sub
Das folgende Beispiel wählt die dritte Spalte in der angegebenen Tabelle.
Sub SelectColumns()
ActiveDocument.Pages(2).Shapes(1).Table.Columns(3).Cells.Select
End Sub
In diesem Beispiel wird der angegebenen Tabelle auf der zweiten Seite der aktiven Publikation eine Spalte hinzugefügt und anschließend legt eine gleiche Breite, verbindet die Zellen und legt die Füllfarbe fest. In diesem Beispiel wird davon ausgegangen, dass es sich bei der ersten Form um eine Tabelle und nicht um einen anderen Formtyp handelt.
Sub NewColumn()
Dim colNew As Column
Set colNew = ActiveDocument.Pages(2).Shapes(1).Table.Columns _
.Add(BeforeColumn:=3)
With colNew
.Width = 2
.Cells.Merge
.Cells(1).Fill.ForeColor.RGB = RGB(Red:=202, Green:=202, Blue:=202)
End With
End Sub
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.