Question

全部显示

应用于 Bookmark 对象的 Column 属性。

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

expression.Column

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

&nbsp

应用于 Cell 对象的 Column 属性。

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

expression.Column

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

示例

当应用于 Bookmark 对象时。

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

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

当应用于 Cell 对象时。

本示例创建一个 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