Sub Ersetze(ByVal selection As Object, ByVal Was As String, ByVal Durch As _
      String)
        selection.Find.ClearFormatting()
        selection.Find.Replacement.ClearFormatting()
        With selection.Find
            .Text = Was
            .Replacement.Text = Durch
            .Forward = True
            .Wrap = 1
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        selection.Find.Execute(Replace:=2)
    End Sub