Vba макросы word

Нужно чтобы файл word сохранялся в формате PDF с выбранными параметрами, в текущую папку (а не в одну и туже), и с текущим именем.

я так понимаю надо изменить строку OutputFileName:=
помогите

Sub Макрос1()
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\Users\Dima\Desktop\hep\Документ Microsoft Word.pdf", ExportFormat _
:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=False, _
CreateBookmarks:=wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=False, UseISO19005_1:=False
End Sub