OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

JordanT

Člen

Registrace: 18. 6. 2012

Příspěvků: 3

Přesun kurzoru pomocí makra na hledaný výraz VYŘEŠENO

Ahoj.
Nemohu vyřešit tento problém. V makru hledám čísla veršů, u kterých pak kontroluji posloupnost. Pokud je posloupnost přerušena, tak chci ukončit makro s tím, že se mi kurzor přesune na poslední správné číslo.
Neboli jak v makru něco vyhledat přes SearchDescriptor, vyhledaný výraz označit v dokumentu a ukončit makro?
Děkuji za radu

Editoval JordanT (18. 7. 2012 14:06:02)

j-pastierik

Člen

Registrace: 15. 11. 2004

Příspěvků: 761

Re: Přesun kurzoru pomocí makra na hledaný výraz VYŘEŠENO

Inšpiráciu nájdete napr. v tomto rozšírení: Rozširenie pre specialne nahradzanie textu

JordanT

Člen

Registrace: 18. 6. 2012

Příspěvků: 3

Re: Přesun kurzoru pomocí makra na hledaný výraz VYŘEŠENO

Odpovím si sám, kdyby někdo toto také potřeboval zjistit

sub Oznaceni_vyberu
Dim oDokument as Object
Dim oSearch as Object
Dim oViewKurzor as Object
Dim oNalezeno as Object
oDokument=ThisComponent
oSearch=oDokument.createSearchDescriptor()	'Vytvoření vyhledávání
oViewKurzor=oDokument.getCurrentController().getViewCursor() 'Spřístupnění viditelného kurzoru
oViewKurzor.CollapseToEnd()		' Zrušení výběru
oSearch.SearchString="něco" 	' Hledaný výraz
oNalezeno=oDokument.findFirst(oSearch)	' Nalezení prvního výskytu
oViewKurzor.GotoRange(oNalezeno.Start,false)	'Přesunutí kurzoru na začátek vyhledaného výrazu
oViewKurzor.GotoRange(oNalezeno.End,true)	'Přesunutí kurzoru na konec vyhledaného výrazu a označení
end sub