Word VBA教程:Column属性

应用于 Bookmark对象的 Column属性。

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

expression.Column

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

 

应用于 Cell对象的 Column属性。

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

expression.Column

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

VBA示例

当应用于 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号