Option Explicit
Sub Suchfunktion()
Dim vntReplaces As Variant
Dim vntReplace As Variant
vntReplaces = Array( _
Array("Text1", "ErsetzterText1"), _
Array("Text2", "ErsetzterText2"), _
Array("Text3", "ErsetzterText3"))
With ActiveDocument.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Forward = True
.Wrap = wdFindContinue
For Each vntReplace In vntReplaces
Call .Execute(FindText:=vntReplace(0), ReplaceWith:=vntReplace(1), Replace:=wdReplaceAll)
Next
End With
End Sub