Seite 1 von 1

Ersetzen von Formatierungen (Makro)

Verfasst: Sa 11. Feb 2017, 19:59
von 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!

Re: Ersetzen von Formatierungen (Makro)

Verfasst: Sa 11. Feb 2017, 21:57
von 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 ...