Hallo OoOHWHOoO,
am 10.07.2018 um 18:09 Uhr schrieb OoOHWHOoO <[email protected]>:
> Hallo Micha, das Makro
>
> Sub SearchReplace
>
> Dim oD as Object ' [object] Document
> Dim os as Object ' [object] Sheet
> Dim oRD as Object ' [object] Replace Descriptor
> Dim SS() as String ' [array] Search String
> Dim RS() as String ' [array] Replace String
> Dim iSR as Long ' [index] Search Replace
>
> SS = Array("Ä" ,"ä" ,"Ö" ,"ö" ,"Ü" ,"ü" ,"ß" ,"é")
> RS = Array("Ae","ae","Oe","oe","Ue","ue","ss","e")
>
> oD = ThisComponent
> oS = oD.Sheets(0)
> oRD = oS.createReplaceDescriptor
> For iSR=0 To UBound(SS) Step 1
> oRD.SearchCaseSensitive = True
> oRD.SearchString = SS(iSR)
> oRD.ReplaceString = RS(iSR)
> oS.ReplaceAll(oRD)
> Next iSR
>
> End Sub
>
> führt (beispielsweise) folgende Ersetzungen in dem aktuell geöffneten
> (fokussierten) CALC-Tabellenblatt für alle Zellen durch:
>
> Äste => Aeste
> ähnlich => aehnlich
> Öl => Oel
> ölig => oelig
> Übel => Uebel
> über => ueber
> Straße => Strasse
> Charité => Charite
>
> Für weitere Ersetzungen musst Du nur die Arrays "SS" und "RS" um die
> entsprechenden Zeichen/Zeichenketten erweitern.
Werden diese Zeichenketten dann nur in das an gleicher Stelle
stehend Pendant aus RS getauscht?
> Gruß
> Hans-Werner :-))
.... und tschüss
Franklin
>
> ------ Originalnachricht ------
> Von: "Martin Jenniges" <[email protected]>
> An: [email protected]
> Gesendet: 10.07.2018 16:46:41
> Betreff: Re: [de-users] Calc: Umlaute umschreiben ü->ue usw.
>
>>Hallo Micha,
>>
>>was ist mit dem Befehl "Suchen und Ersetzen" ? Damit geht es doch ?
>>
>>Eventuell könnte auch Makro helfen
>>
>>mit freundlichem Gruss
>>Martin
>>
>>
>>Am 10.07.2018 um 14:59 schrieb Micha Kuehn:
>>>Hallo,
>>>
>>>gibt es für Calc eine Möglichkeit, Umlaute automatisch zu umschreiben,
>>>also ü durch ue zu ersetzen und auch ß durch ss? Ich will aus Namen
>>>automatisch E-Mail-Adressen basteln.
>>>
>>>Danke,
>>>Micha
>>
>>
>>
>>-- 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
>
>
--
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
