Use .uno:ExecuteSearch
(assumindo que é o que o gravador lhe deu), mas em vez de uma string de pesquisa codificada, insira o valor da seguinte forma:
Global SearchString
Sub doSearch
SearchString = InputBox("Search string:", "Search", "")
' Put the .uno:ExecuteSearch code here.
End Sub
Em seguida, altere a string de pesquisa codificada para usar essa variável:
args1(11).Name = "SearchItem.SearchString"
args1(11).Value = SearchString
Agora, para pesquisas repetidas, crie duas macros adicionais, uma para cada direção. Defina "SearchItem.Backward"
como verdadeiro ou falso. Em vez de outro InputBox
, use a variável SearchString que armazenamos anteriormente.