Tipps & Tricks
26.07.2006, 13:00 Uhr
«ß» beim Einfügen in Word eliminieren
Problem: Ich kopiere häufig Texte aus dem Internet in eigene Word-Dateien. Texte aus Deutschland haben dabei viele «ß», diese muss ich dann mühsam suchen und durch «ss» ersetzen. Gibt es da nicht einen einfacheren Weg?
Lösung: Das können Sie mit einem einfachen Makro erledigen: Bei Aufruf des Makros wird Text aus der Zwischenablage eingefügt, und anschliessend werden alle «ß» durch «ss» ersetzt.
Sub EinfuegenOhneSZ()
Selection.Paste
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "ß"
.Replacement.Text = "ss"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Selection.Paste
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "ß"
.Replacement.Text = "ss"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Da jedes «ß» ohne Ausnahme durch «ss» ersetzt werden soll, genügt ein einfacher Suchen&Ersetzen-Vorgang über das gesamte Dokument. Wie Sie das Makro in Ihr Word einbinden können, lesen Sie in zwei PCtipp-Artikeln [1][2] nach.
Kommentare
Es sind keine Kommentare vorhanden.
