使用VBA批量将Word转成PDF

Sub ConvertWordToPDF()
    Dim folderPath As String
    Dim wordFile As String
    Dim pdfFile As String
    Dim wordApp As Object
    
    '设置要转换的文件夹路径
    folderPath = "C:\Users\JIAHE\Desktop\Output\"
    
    '创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    '关闭屏幕更新，加快转换速度
    wordApp.ScreenUpdating = False
    
    '循环遍历目录下的所有Word文件
    wordFile = Dir(folderPath & "*.doc*")
    Do While wordFile <> ""
        '构造PDF文件名
        pdfFile = Left(wordFile, Len(wordFile) - 4) & ".pdf"
        
        '打开Word文件
        wordApp.Documents.Open folderPath & wordFile
        
        '将Word文件保存为PDF文件
        wordApp.ActiveDocument.ExportAsFixedFormat OutputFileName:= _
            folderPath & pdfFile, ExportFormat:=17, OpenAfterExport:=False
        
        '关闭Word文档
        wordApp.ActiveDocument.Close
        
        '获取下一个Word文件名
        wordFile = Dir()
    Loop
    
    '关闭Word应用程序
    wordApp.Quit
    
    '恢复屏幕更新
    Application.ScreenUpdating = True

End Sub