Selection.SelectColumn (Word)

Seleciona a coluna que contém o ponto de inserção ou seleciona todas as colunas que contêm a seleção.

Se a seleção não estiver em uma tabela, ocorrerá um erro.

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