Danke für den Tipp, funktioniert prima mit dem aufgezeichneten Makro.
das sieht jetzt folgendermaßen aus. Jetzt wäre es ganz ganz toll, wenn die PDF´s irgendwie beim speichern durchnummeriert würden als dok1.pdf, dok2.pdf usw. Kann mir jemand sagen wie ich den Code anpassen muss? Wäre echt super
LG
Sub Mahnbrief()
'
' Mahnbrief Makro
'
'
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\Users\Andreas\Desktop\Mahnbriefe\Dok1.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
ChangeFileOpenDirectory "C:\Users\Andreas\Desktop\Mahnbriefe\"
ActiveDocument.Close
End Sub
|