Como selecionar uma coluna no LibreOffice Basic

[mrcvinicius]

no VBA se escreve:
Range(“A1”).Select
Set sw = ActiveSheet

mas como seria no LibreOffice BASIC?

[schiavinatto]

Macro pelo gravador:

sub SelecionarColuna
Rem ----------------------------------------------------------------------
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$D$4"        '<====== Célula de partida.
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfDataSel", "", 0, Array())      '<==== Vai para o final da coluna, não pode ter célula vazia.
end sub