Selection.SelectColumn (Word)

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.

Selection.Collapse Direction:=wdCollapseEnd 
If Selection.Information(wdWithInTable) = True Then 
 Selection.SelectColumn 
End If