EXCEL-VBA：打開word文件轉換爲PDF保存

Sub a()
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    
    Set WordApp = New Word.Application
    Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\HAHA1.docx")
    WordDoc.SaveAs ThisWorkbook.Path & "\HAHA1.pdf", wdFormatPDF
    WordDoc.Close
    WordApp.Quit
    Set WordDoc = Nothing
    Set WordApp = Nothing
End Sub

要引用word哦