Was ist denn daran sooo schwer?

Sub Makro2()
     Dim finden, ersetzen
     finden = "ErsetzeDas"
     ersetzen = "DurchDas"
     Selection.Find.ClearFormatting
     Selection.Find.Replacement.ClearFormatting
     With Selection.Find
          .Text = finden
          .Replacement.Text = ersetzen
          .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