使用 Word 内置批量宏，将word文档批量转pdf

步骤：

1.  打开 Word；

2.  按 Alt + F11 打开 VBA 编辑器；

3.  选择菜单：插入 → 模块；

4.  粘贴以下代码：

Sub BatchConvertWordToPDF()
    Dim dlg As FileDialog
    Dim doc As Document
    Dim folderPath As String
    Dim fileName As String
    Dim pdfPath As String
    Dim file As Variant
 
    '选择文件夹
    Set dlg = Application.FileDialog(msoFileDialogFolderPicker)
    dlg.Title = "请选择要批量转换的文件夹"
    If dlg.Show <> -1 Then Exit Sub
    folderPath = dlg.SelectedItems(1)
 
    '获取文件夹中的所有 Word 文件
    fileName = Dir(folderPath & "\*.doc*")
 
    '循环处理
    Do While fileName <> ""
        Set doc = Documents.Open(folderPath & "\" & fileName, ReadOnly:=True)
        pdfPath = folderPath & "\" & Left(fileName, InStrRev(fileName, ".") - 1) & ".pdf"
        doc.ExportAsFixedFormat OutputFileName:=pdfPath, ExportFormat:=wdExportFormatPDF
        doc.Close SaveChanges:=False
        fileName = Dir
    Loop
 
    MsgBox "转换完成！", vbInformation
End Sub
 

5.按 F5 运行；

6.选择含有 .doc/.docx 文件的文件夹，等待完成。

✅ 优点：

● 无需第三方软件；

● 保留排版、图片、页眉页脚；

● 支持 Word 2007+。