Hallo Rainer,
so etwas dürfte helfen:
SUB SearchReplace
oReplace = ThisComponent.CreateReplaceDescriptor
oReplace.SetSearchString("Š")
oReplace.SetReplaceString("ä")
ThisComponent.replaceAll(oReplace)
oReplace = ThisComponent.CreateReplaceDescriptor
oReplace.SetSearchString("†")
oReplace.SetReplaceString("Ü")
ThisComponent.replaceAll(oReplace)
END SUB
Ich habe jetzt nur 2 der Zeichen aus Deinem Beispiel übernommen.
Insgesamt dürften es ja 7 sein. Also einfach aneinanderreihen und das
Makro mit einem Button in Writer in eine Symbolleiste direkt einbinden.
Öffnest Du jetzt eins der fraglichen Dokumente, so klickst Du auf den
Button und die entsprechenden Zeichen werden ersetzt.
Gruß
Robert
--
Homepage: https://www.familiegrosskopf.de/robert
--
Liste abmelden mit E-Mail an: users+unsubscr...@de.libreoffice.org
Probleme?
https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy
