Re: [de-users] alte Dokumente unlesbar (Codierung?)

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 <robert@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+unsubscribe@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