Columns-Objekt (Publisher)

  • Artikel

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

HinwBemerkungeneise

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.

Beispiel

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

Methoden

Eigenschaften

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.