Macro Salvar planilha Ok, e Macro para Fechar planilha

Macro para Salvar a planilha ativa Ok com gravador de Macro.

sub Salvar
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Save", "", 0, Array())
end sub

Mas não tem como gravar Fechar planilha ativa ?

Tentei alterar na Macro “uno:Save” para “uno:Close”, mas não funcionou.

Alguém tem a dica…

1 Like

Olá,


O **Dispatcher** definitivamente não é meu forte. Mas pesquisando na internet encontrei [esta página](https://wiki.openoffice.org/wiki/Framework/Article/OpenOffice.org_3.x_Commands) com vários, senão todos os seus comandos.

Daí, encontrei e testei o comando ".uno:CloseDoc"que fechou a planilha ativa.


Atte,
Grafeno
1 Like

Ok @Grafeno, obrigado…

como seria essa macro pra fechar a planilha e não só o documento.?

Uma informação que pode facilitar a compreensão das macros: cada vez que aparece uno:QualquerCoisa, deve-se entender que QualquerCoisa é algum comando do menu, botão de barra de ferramenta ou o botão OK de uma caixa de diálogo do comando QualquerCoisa. Os parâmetros do comando uno são os que seriam modificados uma caixa de diálogo. eles tem nome e valor. https://wiki.documentfoundation.org/Development/DispatchCommands

Ola @claudeci, o comando “.uno:CloseDoc”, fecha a planilha.