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