Sub Formatierung_ersetzen()
 Dim n As Byte
 Application.ScreenUpdating = False
 
 Dim Wörter$(2)
 Wörter$(0) = "Franz"
 Wörter$(1) = "Taxi"
 Wörter$(2) = "Bayern"

 Selection.Find.Format = False
 Selection.Find.Replacement.Font.Bold = True
     For n = 0 To 2
       With Selection.Find
         .Text = Wörter$(n)
         .Replacement.Text = ""
         .Forward = True
         .Wrap = wdFindContinue
         .Format = True
         .MatchCase = True
       End With
       Selection.Find.Execute Replace:=wdReplaceAll
     Next
End Sub