【VBA】使用脚本把doc/docx转换为pdf格式

Document.SaveAs2 方法 (Word) | Microsoft Learn

https://learn.microsoft.com/zh-cn/office/vba/api/word.wdsaveformat

Sub openWord()

    Dim word As Object
    Dim doc As Object

    Set word = CreateObject("Word.Application")
    Set doc = word.Documents.Open("d:\7.docx") ' doc, docx都可以 Documents.Open 方法 (Word) | Microsoft LearnOffice VBA 参考主题https://learn.microsoft.com/zh-cn/office/vba/api/word.documents.open
    savePath = "d:\7.pdf" ' 修改为你的路径
    
    ' 保存为PDF格式， Document.SaveAs2 方法 (Word) | Microsoft LearnOffice VBA 参考主题https://learn.microsoft.com/zh-cn/office/vba/api/Word.SaveAs2
    doc.SaveAs2 Filename:=savePath, FileFormat:=17
    doc.Close
    word.Quit
End Sub

当前只能转换一个，如果使用循环就会好些。