Word VBA Макросы. Как сохранить активный файл в pdf-формат?

[Посетитель]

Как сохранить активный файл в 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

[свернуть]

[Посетитель]

Спасибо за как всегда мгновенный и исчерпывающий ответ.