Column 属性

如果该属性的值为 True，则指定的书签是表格的一列。Boolean 类型，只读。

expression   必需。该表达式返回“应用于”列表中的一个对象。

返回一个只读的 Column 对象，该对象代表包含指定单元格的表格列。

expression   必需。该表达式返回“应用于”列表中的一个对象。

本示例创建一个带书签的表格，然后显示一个消息框，确认书签是表格的列。

Dim docNew As Document
Dim tableNew As Table
Dim rangeCell As Range

Set docNew = Documents.Add
Set tableNew = docNew.Tables.Add(Selection.Range, 3, 5)
Set rangeCell = tableNew.Cell(3,5).Range

rangeCell.InsertAfter "Cell(3,5)" 
docNew.Bookmarks.Add Name:="BKMK_Cell35", Range:=rangeCell
MsgBox docNew.Bookmarks(1).Column

本示例创建一个 3x5 表格并为偶数列设置底纹。

Dim tableNew As Table
Dim cellLoop As Cell

Selection.Collapse Direction:=wdCollapseStart
Set tableNew = _
    ActiveDocument.Tables.Add(Range:=Selection.Range, _
    NumRows:=3, NumColumns:=5)

For Each cellLoop In tableNew.Rows(1).Cells
    If cellLoop.ColumnIndex Mod 2 = 0 Then 
        cellLoop.Column.Shading.Texture = wdTexture10Percent
    End If
Next cellLoop