Selects the column that contains the insertion point, or selects all columns that contain the selection. If the selection isn't in a table, an error occurs.
expression.SelectColumn
expression Required. An expression that returns a Selection object.
Example
This example collapses the selection to the ending point and then selects the column that contains the insertion point.
Selection.Collapse Direction:=wdCollapseEnd
If Selection.Information(wdWithInTable) = True Then
Selection.SelectColumn
End If