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