Von Excel aus in Word Dateien Suchen und Ersetzen

Sub Word_Dokument_von_Excel()
Dim myWord As Object
Dim i As Integer
For i = 31 To 35
On Error Resume Next
Set myWord = GetObject("Word.Application.10")
If Err.Number <> 0 Then
Err.Clear
Set myWord = CreateObject("Word.Application.10")
myWord.Visible = False: objWW.WindowState = wdWindowStateMinimize
Else
myWord.Activate
myWord.Visible = False: objWW.WindowState = wdWindowStateMinimize
End If
'Template öffnen
Dim opener
opener = PathToTsiTemplates & "Testfuss.dot" 'Tsi01
myWord.Application.Documents.Open opener
Static Searchme(15) As String
Static Replaceme(15) As String
Searchme(0) = ""
Replaceme(0) = ""
Searchme(1) = "Test123"
Replaceme(1) = Worksheets("Daten").Range("C" & i)
For j = 1 To 14
Suchen und Ersetzen im SToryType FullText
With myWord.Selection.Find      'Suchen und Ersetzen aktivieren
.ClearFormatting            'Formatierung ignorieren
.Text = Searchme(j)         'Suchen nach
'MsgBox (Searchme(j) & Replaceme(j))
'MsgBox ("Suchen und Ersetzen gestartet")
.Replacement.ClearFormatting
.Replacement.Text = Replaceme(j)   'Ersetzen durch
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue, MatchWholeWord:=True
End With
Next j
OutputTsi01 = PathForTsiTemplates & Worksheets("Daten").Range("A" & i) & " " & Tsi01
myWord.ActiveDocument.SaveAs Filename:=OutputTsi01, FileFormat:=wdFormatTemplate
myWord.Application.Quit (True)
Set myWord = Nothing
Next i
End Sub