Selection.SelectColumn Method (Word)
Selects the column that contains the insertion point, or selects all columns that contain the selection.
Required. A variable that represents a Selection object.
If the selection isn't in a table, an error occurs.
This example collapses the selection to the ending point and then selects the column that contains the insertion point.
If Selection.Information(wdWithInTable) = True Then