vba批量word转pdf

以下是VBA批量将Word文档转换为PDF的代码：

Sub ConvertWordToPDF()
    Dim objWord As Word.Application
    Dim objDoc As Word.Document
    Dim strFile As String
    Dim strFolder As String
    
    '设置文件夹路径
    strFolder = "C:\Users\username\Desktop\WordFiles\"
    
    '创建Word应用程序对象
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = False
    
    '循环处理文件夹中的每个Word文档
    strFile = Dir(strFolder & "*.docx")
    Do While strFile <> ""
        '打开Word文档
        Set objDoc = objWord.Documents.Open(strFolder & strFile)
        
        '保存为PDF格式
        objDoc.SaveAs2 strFolder & Replace(strFile, ".docx", ".pdf"), wdFormatPDF
        
        '关闭Word文档
        objDoc.Close
        
        '获取下一个文件
        strFile = Dir
    Loop
    
    '关闭Word应用程序
    objWord.Quit
    Set objWord = Nothing
    
    '显示处理完成提示
    MsgBox "Word文档已成功转换为PDF格式。"
End Sub

请注意，此代码假设Word文档位于名为“WordFiles”的文件夹中，并且所有文档都使用“.docx”扩展名。您可以根据需要进行更改。