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

[Orlando]

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

[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

[Orlando]

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

=]