Selection.SelectColumn (Word)

Sélectionne la colonne qui contient le point d'insertion ou toutes les colonnes qui contiennent la sélection.

Si la sélection ne se trouve pas dans un tableau, une erreur se produit.

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