Как сохранить активный файл в pdf-формат с тем же именем с помощью макроса?
В пункте 1 укажите путь, по которому надо сохранить pdf-файл.
Макрос
Sub Макрос()
Dim Путь As String, ИмяФайла As String
'1. Здесь укажите путь, по которому надо сохранить pdf-файл.
' На конце не указывайте слеш.
Путь = "C:\Users\User\Desktop"
'2. Извлечение имени из полного имени активного файла в переменную "ИмяФайла".
ИмяФайла = ActiveDocument.FullName
ИмяФайла = Mid(ИмяФайла, InStrRev(ИмяФайла, "\") + 1)
ИмяФайла = Left(ИмяФайла, InStrRev(ИмяФайла, ".") - 1)
'3. Сохранение активного файла в pdf-формат.
ActiveDocument.ExportAsFixedFormat OutputFileName:=Путь & "\" & ИмяФайла & ".pdf", _
ExportFormat:=wdExportFormatPDF
End Sub