Sub WordDokumentErstellen2()
Dim WordApp As Object 'Die Word App
Dim WordQuellDatei As Object 'Die Word Quelldatein mit Textmarken
Dim WordZielDatei As Object 'Die neu erstellte Zieldatei
Dim TextmarkenName As String
Dim rngBereich As Range
TextmarkenName = "NameTextmarke"
'Prüfe ob Word bereits geöffnet ist. Wenn ja dann greife darauf zu und wenn 
' nicht dann gehe weiter
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
On Error GoTo 0
 
'Wenn noch kein Dokument offen dann öffne ein neues
If WordApp Is Nothing Then
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
End If
 
'Erstelle ein neues Word-Dokument
WordApp.Documents.Add
'Weise das neue Dokument als WordZielDatei zu
Set WordZielDatei = WordApp.ActiveDocument
 
'Hier können dann Parameter zur Formatierung mit With wdApp.Selection eingefügt 
' werden
 
'Hier wird die Textmarken Datei geöffnet
WordApp.Documents.Open Sheets("Einstellungen").Range("C10").Value & "\" & _
  Sheets("Einstellungen").Range("B10").Value & ".docx"
'Hier die Word-Textmarkendatei an WordQuellDatei binden
Set WordQuellDatei = WordApp.ActiveDocument
 
If WordQuellDatei.Bookmarks.Exists(TextmarkenName) Then
MsgBox WordQuellDatei.Bookmarks(TextmarkenName).Range
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

Set rngBereich = WordQuellDatei.Bookmarks(TextmarkenName).Range