Hi zusammen

Ich möchte gerne eine Wordvorlage einrichten, dass man individuell bearbeiten und dann als pdf abspeichern kann.

Hier mal der code

Private Sub CommandButton1_Click()

Dim strDateiname As String
Dim Pfad As String
Dim strPDF As String

Pfad = ActiveDocument.Path
strDateiname = Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)
strPDF = Pfad & strDateiname & "pdf"


ActiveDocument.ExportAsFixedFormat OutputFileName:=strPDF, ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
True, UseISO19005_1:=False

End Sub

Was hier komisch ist: es generiert zwar eine pdf aber nicht im ordner wo die word datei drin ist sondern im ordner vorher. Kann mir da jemand weiterhelfen? gemäss pfad müsste doch die pdf im gleichen ordner sein wie die word datei oder nicht?

Das zweite Problem: ich möchte mit der Vorlage ständig neue pdf's abspeichern und dafür müsste ich die Dateinamen ändern können. Wäre es also machbar wenn ich das makro laufen lasse, es mir die möglichkeit gibt einen neuen Dateinamen einzugeben? bis jetzt tappe ich dort im dunkeln. Wär um jeden Tipp dankbar.