Selection.ColumnSelectMode (Word)

True se o modo de seleção da coluna estiver ativo. Boolean de leitura/gravação.

Quando esse modo está ativo, as letras "COL" aparecem na barra de status.

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