Private Sub Austausch(ByVal Schlüssel As String, ByVal Ersatz As String, ByVal _
  Dokument As Microsoft.Office.Interop.Word.Document)
'Tauscht die im Dok enthaltenen Schlüsselwörter durch Werte aus
Dim Inhalt As String = ""
With Dokument
Inhalt = .Content.Text
.Content.Text = Replace(Inhalt, "<-" & Schlüssel & "->", Ersatz, 1, -1, _
  CompareMethod.Text)
End With
End Sub

Private Sub Austausch(ByVal Schlüssel As String, ByVal Ersatz As String, ByVal _
  Dokument As Microsoft.Office.Interop.Word.Document)
Dim i, Wörter As Integer
For i = 1 To Wörter - 3
If .Words(i).Text = "<-" Then
If .Words(i + 1).Text.ToUpper = Schlüssel.ToUpper And i <= Wörter - 2 Then
If Microsoft.VisualBasic.Left(.Words(i + 2).Text, 2) = "->" Then
.Words(i).Text = ""
.Words(i).Text = Replace(.Words(i).Text, Schlüssel, Ersatz, 1, -1, _
  CompareMethod.Text)
.Words(i + 1).Text = Replace(.Words(i + 1).Text, "->", "", 1, -1, _
CompareMethod.Text)
i += 2
End If
End If
End If
Next i