Ative a função Gravar Macro no Calc do BrOffice 3

[Frank K Hosaka]

Ainda não testei a dica da página http://soplanilhas.blogspot.com/2011/03/opcao-gravar-macro-desabilitada-no.html que consiste em selecionar a opção Ativar Recursos Experimentais (Instáveis) que você encontra na orelha Geral do Menu Ferramentas > Opções. Vou testar logo mais à noite, e de lá vou acrescentar mais comentários sobre o tema.

[Frank K Hosaka]

Usando o recurso do gravador de macro, consegui montar a minha primeira macro no BrOffice Calc. A listagem do código a seguir só funciona se você mudar a sintaxe da fórmula para Excel R1C1, através do Menu Ferramentas > Opções > Br Office Calc > Fórmula > Sintaxe da Fórmula. Eis o código:

sub Main
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim arg(0) as new com.sun.star.beans.PropertyValue
dim i as integer
for i = 1 to 10
 arg(0).Name = "StringName"
 arg(0).Value = str(i)
 dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, arg())
 dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, arg())
 arg(0).Value = "x"
 dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, arg())
 dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, arg())
 arg(0).Value = "2"
 dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, arg())
 dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, arg())
 arg(0).Value = "="
 dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, arg())
 dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, arg())
 arg(0).Value = "=RC[-4]*RC[-2]"
 dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, arg())
 dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, arg())
 for j=1 to 4:dispatcher.executeDispatch(document, ".uno:GoLeft", "", , arg()):next j
next i
end sub