EXCEL VBA WordファイルををPDFへ変換

Sub a()
    Call nsubWordToPDF("D:\TEMP\テスト.doc", "D:\TEMP\テスト.pdf")
End Sub



'WordファイルををPDFへ変換
' 引数：pstrInputWordPath 変換前のWORDファイル名（フルパス）
'       pstrOutputPDFPath 出力のPOFファイル名（フルパス）
'https://pgbigoroku.hatenablog.com/entry/2022/12/03/213928
'バージョン 2022/12/3
Private Sub nsubWordToPDF(ByVal pstrInputWordPath As String, ByVal pstrOutputPDFPath As String)
    Dim wrdApp As Object
    Dim wrdTarget As Object
    Set wrdApp = CreateObject("Word.Application")
    Set wrdTarget = wrdApp.documents.Open(pstrInputWordPath, ReadOnly:=True)
    wrdTarget.ExportAsFixedFormat pstrOutputPDFPath, ExportFormat:=17
    wrdTarget.Close
    wrdApp.Quit
End Sub