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
Set Rechnung = Nothing
Set AppWord = Nothing
|