Dim wlApp As New Word.ApplicationClass
Dim w1Doc As New Word.Document
w1Doc = wlApp.Documents.Add(C:\vorlage.doc)
w1Doc.Select()
 
SearchAndReplace(wlApp, "§NAME01", dr("Kundenbank"))
 
....
 
Friend Sub SearchAndReplace(ByRef wlApp As Object, ByVal searchText As String, _
  ByVal replaceText As String)
    With wlApp.Selection.Find
      .ClearFormatting()
      .Text = searchText
      With .Replacement
        .ClearFormatting()
        .Text = replaceText
      End With
      .Execute(Replace:=Word.WdReplace.wdReplaceAll)
    End With
  End Sub

Sector Twelve, or to Infinity and Beyond, whichever comes first.!