Freigeben über

Table.Columns-Eigenschaft (Publisher)

  • Artikel

Gibt eine Columns -Auflistung zurück, die alle Spalten der angegebenen Tabelle darstellt.

Syntax

Ausdruck. Spalten

Ausdruck Eine Variable, die ein Table-Objekt darstellt.

Beispiel

Bei diesem Beispiel wird in jede Zelle der angegebenen Tabelle eine fett formatierte Zahl eingefügt. In diesem Beispiel wird davon ausgegangen, dass es sich bei der angegebenen Form um eine Tabelle und nicht um einen anderen Formtyp 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) 
 
 'Loops through each column in the table 
 For Each colTable In shpTable.Table.Columns 
 
 'Loops through each cell in the column 
 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

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.