Mehrere Zeichen gleichzeitig suchen und ersetzen

23/10/2008 - 21:50 von marc-kramer | Report spam
Hallo liebe Grouper,

ich suche eine Möglichkeit, wie ich mehrere Zeichen gleichzeitig
suchen und ersetzen kann. Ich muss diverse Sonderzeichen wie zum
Beispiel:


Zeichen Unicode-Nr.
Á Á
á á
È Č
è č
Ï Ď
ï ď
É É
é é
Ì Ě
ì ě
Í Í
í í
Ò Ň
ò ň
Ó Ó
ó ó
Ø Ř
ø ř
© Š
¹ š
« Ť
» ť
Ú Ú
ú ú
Ù Ů
ù ů
Ý Ý
ý ý
® Ž
Ÿ ž


in Unicode umwandeln...


Ich will das aber nicht einzeln suchen und ersetzen...


Weiß jemand eine Lösung?


Gruß


Marc
 

Lesen sie die antworten

#1 Thomas Gahler
24/10/2008 - 09:18 | Warnen spam
Hallo marc

ich suche eine Möglichkeit, wie ich mehrere Zeichen gleichzeitig
suchen und ersetzen kann. Ich muss diverse Sonderzeichen wie zum
Beispiel:


Zeichen Unicode-Nr.
Á Á
á á


Das einzige was du machen kannst ist das Suchen/Ersetzen in eine Funktion zu
kapseln und die benötigten Parameter als Argument übergeben.


ungefàhr so...


Sub Hauptprogramm
'...
funcSuchenErsetzen (Suchen:="Á", Ersetzen:="&#193")
funcSuchenErsetzen (Suchen:="á", Ersetzen:="&#225")
'...
End sub

private function funcSuchenErsetzen (
byval Suchen as string, _
byval Ersetzen as string) _

'her das Suchenersetzen abbilden
End Function



Thomas Gahler
MVP für WordVBA
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows XP (SP2), Office XP (SP3)

Ähnliche fragen