Hallo,
stehe seit längerem vor einem größeren Problem. Ich möchte Inhalte aus Excel-Zellen an Textmarken in ein Word-Dokument übergeben. Das klappt mit folgendem Code auch soweit super, nur leider muss das Word-Dokument dabei separat existieren:
Sub WordStarten()
Dim appWord As Object
Dim docTest As Object
Set appWord = CreateObject(„Word.Application“)
Set docTest = appWord.Documents.Add(„C:\Pfad zur Datei.doc“)
appWord.Visible = True
docTest.Activate
docTest.Bookmarks(„Textmarke1“).Range.Text = Sheets(„Blatt1“).Range(„B14“)
End Sub
Nun möchte ich aber das Word-Dokument gern in Excel einbetten, aus Excel heraus starten und mit den Daten befüllen, um später nur eine Datei ausliefern zu müssen.
Leider schaffe ich es einfach nicht, die Inhalte an die Textmarken zu übergeben. Mit folgendem Code bekomme ich wenigstens das Dokument geöffnet:
ActiveSheet.Shapes(„Object 91“).Select
Selection.Verb Verb:=xlPrimary
Weiß jemand, wie der Code nun weitergehen müsste, damit die Textmarken befüllt werden? Alles was ich bisher ausprobiert habe, hat Fehlermeldungen geliefert!
Vielen Dank schonmal an alle, die helfen können!