Sub Übertragung()
'Eine einfache Übertragung eines Textes von wordDoc2 zu wordDoc1:
'Ohne Überprüfung, ob eine Datei bereits geöffnet ist.
'Zuvor wurde im wordDoc1 Dokument eine Textmarke mit dem Namen "text2" festgelegt.
'Diese vba-Zeile laufen in einem Excel-Dokument ab, öffnen die Doc-Dokumente
'und übertragen den gesamten Text von wordDoc2 zu wordDoc1
'Vielleicht dient dies als nützliche Anregung.

    Dim wordApp As Word.Application
    Dim wordDoc As Word.Document
    Dim pfad As String
    fpad = ThisWorkbook.Path
    Set wordApp = New Word.Application
    Set wordDoc1 = wordApp.Documents.Open(fpad & "\Word1.doc")
    Set wordDoc2 = wordApp.Documents.Open(fpad & "\Word2.doc")
    wordApp.Documents.Open (fpad & "\Word1.doc")
    wordApp.Application.ActiveDocument.Bookmarks("text2").Range.Text = wordDoc2.Range.Text
    Set wordDoc1 = Nothing
    Set wordDoc2 = Nothing
    Set wordApp = Nothing
End Sub