Guten Tag zusammen,

ich hoffe jemand von euch kann mir helfen.

Über folgenden Code möchte ich eine Rechnung automatisiert aus Excel in ein Word Dokument übertragen und anschließend das Word Dokument als PDF Exportieren.

Soweit so gut, leider scheitert das ganze lediglich an dem Export als PDF, dabei wird der oben genannte Fehler angezeigt...

Ich recherchiere bereits seit einigen Stunden, komme aber nicht auf die Lösung. 

Falls sich jemand wundert: 

Ja, ich bin blutiger Anfänger und versuche mir alles über Youtube/Foren selbst beizubringen, überall klappt es, nur bei mir nicht (Opferrolle ist immer einfach ;-))

Ich wäre SEHR SEHR dankbar, wenn mir jemand helfen könnte! :-) 

Frohe Weihnachten allerseits 

Hier der Code: 

Dim Rechnung As Object
Dim AppWord As Object

Set AppWord = CreateObject("Word.application")
Set Rechnung = AppWord.Documents.Add("C:\Users\Lucas\Sync\Privat\RDB 2.0\RE_Vorlage Käufer.docx")
Rechnung.SaveAs ("C:\Users\Lucas\Sync\Privat\RDB 2.0\Test.docx")

AppWord.Visible = True

Rechnung.Activate
Rechnung.Bookmarks("AnredeBriefkopf_01").Range.Text = Range("AnredeBriefkopf_01")
Rechnung.Bookmarks("AdresseBriefkopf_02").Range.Text = Range("AdresseBriefkopf_02")
Rechnung.Bookmarks("PLZ_OrtBriefkopf_03").Range.Text = Range("PLZ_OrtBriefkopf_03")
Rechnung.Bookmarks("Datum_04").Range.Text = Range("Datum_04")
Rechnung.Bookmarks("AnredeText_05").Range.Text = Range("AnredeText_05")
Rechnung.Bookmarks("ImmobilienArt_06").Range.Text = Range("ImmobilienArt_06")
Rechnung.Bookmarks("ImmobilienAdresse_07").Range.Text = Range("ImmobilienAdresse_07")
Rechnung.Bookmarks("ImmobilienOrt_08").Range.Text = Range("ImmobilienOrt_08")

Rechnung.Save

ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "C:\Users\Lucas\Sync\Privat\RDB 2.0\Test.pdf", ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False