Suchen Gross klein ersetzten
15.11.2017 08:48:00
Timo
ich möchte das meine Such und ersetzt Funktion zwischen gross und Kleinschreibung unterscheiden kann.
Bisher habe ich es mit dem folgenden Code versucht, leider wird dabei die Gross- und Kleinschreibung nicht beachtet, diese sollte aber genau beachtet werden.
Ich möchte in diesem Beispiel das Kleine a mit einem Grossen T und das Grosse A mit einem Kleinen t ersetzten, allerdings wird durch meine Variante jedes a durch ein Grosses T ersetzt.
Sub SuchenErsetzten ()
With Selection.Find
.ClearFormatting
.Text = "a"
.Replacement.ClearFormatting
.Replacement.Text = "T"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "A"
.Replacement.ClearFormatting
.Replacement.Text = "t"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
End Sub
Freundliche Grüsse Timo hiho