Hallo Rainer,
zuerst einmal diesen Inhalt von Thomas kopieren:
SUB MySearchReplace
dim aSearch()
dim aReplace()
aSearch = array("§","š")
aReplace = array("ß","ö")
For i = 0 to ubound(aSearch)
oReplace = ThisComponent.CreateReplaceDescriptor
With oReplace
.SetSearchString(aSearch(i))
.SetReplaceString(aReplace(i))
.SearchCaseSensitive = True
end with
ThisComponent.replaceAll(oReplace)
next
END SUB
Das Makro kannst Du später ergänzen. In dem Arraypaar stehen jetzt nur
die Zuordnungen § → ß und š → ö. Da kannst Du weitere Zuordnungen
ergänzen, indem Du immer ein Komma setzt und dann den neuen Wert
eingibst - auch später noch, wenn das Makro längst abgespeichert ist.
Öffne nach dem Kopieren
Extras > Makros > Makros verwalten > LibreOffice Basic
Unter Meine Makros > Standard > Module1 kannst Du über Bearbeiten den
Editor öffnen. Gegebenenfalls hast Du hier noch kein Modu. Das muss
vorher erstellt werden.
Hast Du den Writer geöffnet, so geht auch
Extras > Makros > Makros bearbeiten
Dann landest Du direkt in dem Ordner "Standard".
In das dortige Modul fügst Du das obige Makro ein. Würdest Du jetzt von
einem der "befallenen" Dateien das Makro über
Extras > Makro ausführen
starten, so würden eben nur die 2 bisher verzeichneten Paare ausgetauscht.
Über
Extras > Symbolleisten > Kategorie "Makros"
kannst Du das Makro aussuchen und über den Pfeil nach rechts der
Symbolleiste "Standard" hinzufügen. Der Titel des Makros erscheint jetzt
ausgeschrieben als "MySearchReplace" ganz rechts auf der Symbolleiste.
Du benötigst also kein Symbol, wenn Du auch mit der Textfassung
zufrieden bist.
Über den Button kannst Du jetzt das Makro direkt starten, sobald Du ein
"befallenes" Dokument hast.
Anschließend kannst Du auch weiterhin noch Paare zu dem Makro hinzufügen.
Gruß
Robert
--
Homepage: https://www.familiegrosskopf.de/robert
--
Liste abmelden mit E-Mail an: [email protected]
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
