Sub TextmarkeSpeichern(ByVal WordApp As Object, ByVal WordQuellDatei As Object, _
  ByVal WordZielDatei As Object, ByVal Zeile As Integer)
Dim rngBereich As Word.Range
TextmarkenName = Sheets("Prüferstellung").Range("D" & Zeile).Value
 
If WordQuellDatei.Bookmarks.Exists(TextmarkenName) Then
Set rngBereich = WordQuellDatei.Bookmarks(TextmarkenName).Range
rngBereich.Copy
WordZielDatei.Range(Start:=WordZielDatei.Content.End - 1, _
  End:=WordZielDatei.Content.End - 1).Paste
End If
End Sub