Anbei der Code:
Die unten beschriebenen Inhalte werden in die Word Datei übernommen. Jetzt möchte ich noch ein Diagramm ergänzen, weiß aber nicht wie. :/
Sub NachWordUebertr
Sub NachWordUebertragen()
Dim appWord As Object
Dim Cockpit As Object
Set appWord = CreateObject("Word.Application")
Set Cockpit = appWord.Documents.Add("C:\Users\Paul_\Desktop\Test.docx")
appWord.Visible = True
Cockpit.Activate
Cockpit.Bookmarks("Manager").Range.Text = Range("Manager")
Cockpit.Bookmarks("Datum").Range.Text = Range("Datum")
Cockpit.Bookmarks("Kunde").Range.Text = Range("Kunde")
Cockpit.Bookmarks("Idee").Range.Text = Range("Idee")
Cockpit.Bookmarks("Beschreibung").Range.Text = Range("Beschreibung")
Cockpit.Bookmarks("Wirtschaftlichkeit1").Range.Text = Range("Wirtschaftlichkeit1")
Cockpit.Bookmarks("Wirtschaftlichkeit2").Range.Text = Range("Wirtschaftlichkeit2")
Cockpit.Bookmarks("Zeitraum1").Range.Text = Range("Zeitraum1")
Cockpit.Bookmarks("Zeitraum2").Range.Text = Range("Zeitraum2")
Cockpit.Bookmarks("Risiko1").Range.Text = Range("Risiko1")
Cockpit.Bookmarks("Risiko2").Range.Text = Range("Risiko2")
Cockpit.Bookmarks("Gesamt1").Range.Text = Range("Gesamt1")
Cockpit.Bookmarks("Gesamt2").Range.Text = Range("Gesamt2")
Set Cockpit = Nothing Set
appWord = Nothing