Selection.SelectColumn (Word)

Markiert die Spalte mit der Einfügemarke oder alle Spalten mit der Markierung.

Wenn die Markierung nicht in einer Tabelle erfolgt, tritt ein Fehler auf.

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