Makro zur Kennzeichnung von Wiederholungen

[RAM]

Hallo zusammen,

Ich suche ein Makro für Writer, das innerhalb einer vorgegebenen Wort Anzahl nach Wiederholungen sucht und diese kennzeichnet (z.B. mit einer punktierten Unterstreichung). Hintergrund dabei ist eine Stilprüfung der eingegebenen Texte wie sie beispielsweise das Textverarbeitungsprogramm Papyrus durchführen kann.
Da ich bislang ein solches Makro nicht finden konnte, versuche ich (=Makro-Anfänger) ein entsprechendes Makro zu schreiben. Mein Ansatz ist dabei folgender: Mittels eines Textcursors, den ich innerhalb einer Anzahl n von Wörtern von Wort zu Wort springen lasse, vergleiche ich jedes Wort mit dem ersten Wort. Wird dabei eine Übereinstimmung gefunden, so soll das Wort, auf dem der Textcursor steht, mit einer vorgefertigten Zeichen-Formatvorlage ausgezeichnet werden.
Genau da liegt mein Problem. Die Formatvorlage scheine ich nur über den Uno-Service und einen Dispatcher setzen zu können. Wie über gebe ich dem aber mein gefundenes Wort, auf dem der Textcursor steht?

Alternativ: Kennt jemand ein entsprechendes fertiges Makro?

Dank im voraus für jeden sachdienlichen Hinweis.

[Robert Tucker]

Wissen Sie von:

http://extensions.services.openoffice.o ... t/Linguist

Warum nicht "Suchen & Ersetzen" benutzen?

Ein Beispiel mit CharColor hier:

http://www.oooforum.org/forum/viewtopic.phtml?t=123399

Sehen Sie auch:

http://www.scribd.com/doc/86875934/192/ ... properties