Publisher) (Columns 物件

一組 資料行 代表表格中的欄的物件。

註解

使用Table物件的Columns屬性可傳回Columns集合。

使用 資料 行 (索引) ，其中 index 是索引編號，可傳回單一 Column 物件。 索引編號代表資料行 （從左到右統計） Columns 集合中的位置。

使用 [ 新增 若要將欄新增至表格的方法。

範例

下列範例會顯示使用中文件的第一個表格的 Columns 集合中的 Column 物件數目。

Sub CountColumns() 
 MsgBox "The number of columns in the table is " & _ 
 ActiveDocument.Pages(2).Shapes(1).Table.Columns.Count 
End Sub

本範例在指定表格的每個儲存格中輸入粗體數字。 它假設指定的圖案是表格，而不是另一種類型的圖案。

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

下列範例會選取指定表格中的第三個欄。

Sub SelectColumns() 
 ActiveDocument.Pages(2).Shapes(1).Table.Columns(3).Cells.Select 
End Sub

本範例會將欄新增至使用中出版物的第二頁上指定的表格然後調整寬度、 並合併儲存格，並設定填滿色彩。 本範例假設第一個圖案是表格，而不是另一種類型的圖案。

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

方法

• Add
• 項目

屬性

• 應用程式
• 數目
• Parent

另請參閱

• Publisher 物件模型參考

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。