ich habe ein funktionierendes Makro geschrieben, mit dem ich eine Worddatei öffne, in der Textmarken hinterlegt sind. Inhalte aus Zellen der Exceldatei werden dann an die Stellen der Textmarken kopiert.
Da nun leider das Marko zu groß geworden ist, muss ich das Makro in zwei Schritten ausführen. In der Mitte des Makros (Word1) steht nun
Call Word2
End Sub
Sub Word2
Mein Problem ist nun, dass ich nicht weiß, wie ich in Sub Word2 die geöffnete Worddatei aus Sub Word1 wieder aufgreife.Zur Info, folgend der Aufbau des ersten Makros:
Sub Word1()
Dim appWord As Object
Dim docTest As Object
Dim str As String
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("Verzeichnis")
appWord.Visible = True
docTest.Activate
str = ThisWorkbook.Sheets("Blatt1").Range("C4")
docTest.Bookmarks("Textmarke1").Range.Text = str
str = ThisWorkbook.Sheets("Blatt1").Range("C5")
docTest.Bookmarks("Textmarke2").Range.Text = str
Vielen Dank!