Ersetzen von Formatierungen (Makro)

[Butch]

EDITED: Siehe mein zweites Posting!

Kennt sich hier jemand damit aus?

Ich muss bestimmte Formatierungen des Textes durch andere ersetzten. Für die meisten habe ich funktionierende Lösungen. So kann ich im Makro z.B. nach durchgestrichenem Text suchen (und dann ersetzen):

Code: Alles auswählen

SrchAttributes(0).Name = "CharStrikeout"
SrchAttributes(0).Value =com.sun.star.awt.FontStrikeout.SINGLE

Bei hervorgehobenen Text müsste das da funktionieren, tut es aber nicht:

Code: Alles auswählen

SrchAttributes(0).Name = "CharBackColor"
SrchAttributes(0).Value = 14540253

Value müsste stimmen, da ich zuvor die Hervorhebung selber gemacht habe per ein aufgezeichnetes Makro (in welchem dieser Wert aufscheint):

Code: Alles auswählen

args1(0).Name = "BackColor"
args1(0).Value = 14540253

Gurus, bitte um Tipps!

[Butch]

Korrektur:
Die von mir angegebenen Makrozeilen funktionieren perfekt.
Ich habe aber Folgendes entdeckt:
Speichert man ein Dokument in doc, wird die Hervorhebungsfarbe (geringfügig) geändert!!!
Deshalb hat mein Makro die entsprechende Farbe nicht gefunden.

So viele Stunden ...