Selection.ColumnSelectMode (Word)

True si está activa la selección de columnas.

Cuando este modo está activo, aparecen las letras "COL" en la barra de estado.

With Selection 
 .Collapse Direction:=wdCollapseStart 
 .ColumnSelectMode = True 
 .MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend 
 .MoveDown Unit:=wdLine, Count:=2, Extend:=wdExtend 
 .Copy 
 .ColumnSelectMode = False 
End With