Макрос Excel для сохранения вложенных документов Word в PDF

Question

Я использую текущий макрос для сохранения документов Word из моей книги Excel в той же папке.Есть ли способ конвертировать их в PDF при сохранении?Так что вместо сохранения в Word мой макрос будет конвертировать их в PDF?Мне удалось создать Macro для Word для сохранения в PDF, но я не могу реализовать его для работы из Excel.

    Sub MMmachine()
Dim ws As Worksheet: Set ws = Sheets("MAIN")
    'declare and set your worksheet, amend as required
    If ws.Range("B1").Value = True Then
        MYMACRO
    End If
End Sub

Sub MYMACRO()
Const wdFormatDocument = 0
Dim sh As Shape
Dim objWord As Object ''Word.Document
Dim objOLE As OLEObject
Dim wSystem As Worksheet
On Error Resume Next

Set wSystem = Worksheets("MAIN")
''The shape holding the object from 'Create from file'
''Object 2 is the name of the shape
Set sh = wSystem.Shapes("Object 6")
''Activate the contents of the object
sh.OLEFormat.Activate
''The OLE Object contained
Set objOLE = sh.OLEFormat.Object
''This is the bit that took time
Set objWord = objOLE.Object
objWord.Application.Visible = False
''Easy enough
    objWord.SaveAs2 Filename:=ActiveWorkbook.Path & "\MyFile.docx", FileFormat:= _
    wdFormatDocumentDefault
objWord.Application.Quit
sh.OLEFormat.Delete
End Sub

Answer 1

Все, что требуется, - это тривиальное изменение кода:

objWord.SaveAs2 Filename:=ActiveWorkbook.Path & "\MyFile.pdf", FileFormat:=wdFormatPDF

или:

objWord.SaveAs2 ActiveWorkbook.Path & "\MyFile.pdf", 17