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
|