Selection.SelectColumn (Word)

Selecciona la columna que contiene el punto de inserción o todas las columnas que contienen la selección.

Si la selección no está en una tabla, se produce un error.

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