Hallo Rainer,
bei mehr Werten nutze Arrays und ne Schleife. Achte dabei, dass Du Groß-
und Kleinschreibung unterscheiden musst und dass die Anzahl der beiden
Listen identisch ist!
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
Wenn Du Dir die beiden Arrays wie oben genau untereinander schreibst, so
kannst Du Zeichen für Zeichen exakt zuordnen. Das Ganze dann in
MeineMakros-> z.B. Standard -> Modul1 kopieren (oder besser: leg dir ne
eigene Bibliothek an), dann noch ne Button erzeugen (Extras - Anpassen
...Entweder Symbolleiste oder Menü -> Makro zuordnen) Fertig.
VG
Thomas
Am 06.01.2020 um 08:16 schrieb Rainer:
Hallo Robert,
Am Mon, 6 Jan 2020 07:59:24 +0100
schrieb Robert Großkopf <rob...@familiegrosskopf.de>:
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.
Es sind deutlich mehr mehr - z.B. ç, Ç, ã, Ã, ñ, Ñ, õ, Õ, á, Á, ó, Ó,
â, ..... etc. Dennoch halte ich die Aufgabe für überschaubar, weil es
ja nicht unendlich viele Zeichen sind.
Also einfach aneinanderreihen und das > Makro mit einem Button in
Writer in eine Symbolleiste direkt einbinden.
Ok. Leider habe ich null Ahnung vom Erstellen von Makros, weiß also
nicht, wie ich diese Aufgabe anpacken muss.
Öffnest Du jetzt eins der fraglichen Dokumente, so klickst Du auf den
Button und die entsprechenden Zeichen werden ersetzt.
Das klingt schon mal gut ;-)
Viele Grüße
Rainer
--
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