Columns オブジェクト (Publisher)

列 のコレクション テーブル内の列を表すオブジェクト。

注釈

Columns コレクションを取得するには、Table オブジェクトの Columns プロパティを使用します。

1 つの Column オブジェクトを返すには、Columns (index) を使用します。index はインデックス番号です。 インデックス番号は左から右に数えた 列 のコレクション内の列の位置を表します。

Add メソッドを使用して、表に列を追加します。

例

次の例では、作業中の文書の最初のテーブルの 列 コレクションの 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

次の使用例は、指定した表の 3 番目の列を選択します。

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

次の使用例は、作業中の文書で、2 番目のページの指定した表に列を追加し、幅を設定し、セルを結合し、塗りつぶしの色を設定します。 この例では、最初の図形がテーブルであり、別の種類の図形ではないことを前提としています。

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
• アイテム

プロパティ

• Application
• Count
• Parent

関連項目

• Publisher オブジェクト モデル リファレンス

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。