Pergunte aqui
1

Macro para abrir a caixa de diálogo "Localizar e substituir..."

perguntadas 2016-04-02 16:29:57 +0100

imagem do gravatar de Orlando

updated 2016-04-17 02:55:11 +0100

imagem do gravatar de Grafeno

Não estou conseguindo gravar uma macro para abrir a caixa de diálogo Localizar e substituir..., no menu Editar do Calc.

A intenção mesmo é usar a ferramenta Localizar... naquela caixa de diálogo, mas na versão atual do LO não abre essa opção daquela forma automático.

Tentei o comando abaixo, porém fica repetindo a caixa de diálogo quando tento fechá-la:

sub PESQUISAR
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 ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue

dispatcher.executeDispatch(document, ".uno:Search", "", 0, args1())

end sub

abçs

Orlando Souza

8)

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

1

respondidas 2016-04-02 18:24:18 +0100

imagem do gravatar de Grafeno

Através do link que apresentei nesta resposta, encontrei o comando "uno:" para abrir o diálogo Localizar e Substituir: "SearchDialog".

Então sua macro deverá ficar da seguinte forma:

Sub Pesquisar
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 ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue

dispatcher.executeDispatch(document, ".uno:SearchDialog", "", 0, args1())

End Sub

Atte,
Grafeno

editar assinalar como ofensivo Excluir Link mais

Comentários

Ooops!!! os dois comandos estão certos. O problema era porque eu estava executando pelo editor do Basic.

=]

imagem do gravatar de OrlandoOrlando ( 2016-04-02 18:38:15 +0100 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2016-04-02 16:29:57 +0100

Lidas: 511 vezes

Última atualização: Apr 02 '16