SelectColumn Method Example

This example collapses the selection to the ending point and then selects the column that contains the insertion point.

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