Column property as it applies to the Bookmark object.
True if the specified bookmark is a table column. Read-only Boolean.
expression.Column
expression Required. An expression that returns one of the objects in the Applies TO list.
Column property as it applies to the Cell object.
Returns a read-only Column object that represents the table column containing the specified cell.
expression.Column
expression Required. An expression that returns one of the objects in the Applies To list.
Example
As it applies to the Bookmark object.
This example creates a table with a bookmark and then displays a message box that confirms that the bookmark is a table column.
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
As it applies to the Cell object.
This example creates a 3x5 table and applies shading to the even-numbered columns.
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