如何批量将多个 Word 文档转换为 Pdf 文件

作者Siluvia修改日期2025-04-18

在 Word 中，使用“另存为”功能可以轻松将单个 Word 文档转换为 PDF 格式。那么，如果您想要将某个文件夹中的所有 Word 文档一次性批量转换为独立的 PDF 文件，该如何操作呢？本指南将为您详细介绍如何在 Word 中批量将多个 Word 文档转换为 PDF 文件的方法。

使用 VBA 批量将多个 Word 文档转换为 Pdf 文件
 使用 Kutools for Word 批量将多个 Word 文档转换为 Pdf 文件

使用 VBA 批量将多个 Word 文档转换为 Pdf 文件

以下 VBA 代码可助您高效地将文件夹中的所有 Word 文档一键批量转换为 PDF 文件。请按照下列步骤操作：

在 Word 中，按下 Alt + F11 即可打开 Microsoft Visual Basic for Applications 窗口。

在编辑器中，点击“插入”>“模块”，然后将以下 VBA 代码复制并粘贴到模块窗口中。

Sub ConvertWordsToPdfs()
'Updated by Extendoffice 20181123
    Dim xIndex As String
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xNewName As String
    Dim xFileName As String
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.*", vbNormal)
    While xFileName <> ""
        If ((Right(xFileName, 4)) <> ".doc" Or Right(xFileName, 4) <> ".docx") Then
            xIndex = InStr(xFileName, ".") + 1
            xNewName = Replace(xFileName, Mid(xFileName, xIndex), "pdf")
            Documents.Open FileName:=xFolder & xFileName, _
                ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
                PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
                WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
                wdOpenFormatAuto, XMLTransform:=""
            ActiveDocument.ExportAsFixedFormat OutputFileName:=xFolder & xNewName, _
                ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
                wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
                Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
                CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
                BitmapMissingFonts:=True, UseISO19005_1:=False
            ActiveDocument.Close
        End If
        xFileName = Dir()
    Wend
End Sub

按下 F5 即可运行代码。
将会弹出浏览对话框。请选择包含待转换为 PDF 的 Word 文档的文件夹，并点击“确定”。

所选文件夹中的所有 Word 文档都将被转换为独立的 PDF 文件。

使用 Kutools for Word 批量将多个 Word 文档转换为 Pdf 文件

如果您觉得 VBA 代码操作复杂，不妨试试 Kutools for Word 的“文档转换”工具。该工具能够大幅简化转换流程，让您比手动操作更轻松高效地完成任务。

Kutools for Word，搭载 AI 功能🤖，提供超过 100 项实用功能，助您轻松完成各类任务。

立即下载

单击“KUTOOLS PLUS” > “Doc/Docx”。
在“文档格式转换”窗口中，请按照以下步骤操作：
1. 在“转换格式”下拉菜单中，选择“Docx 转 pdf”选项。
2. 单击添加文档：
  选择“文件”以添加单个文档。
  选择“文件夹”即可一次性添加该文件夹中的所有文档。
3. 默认情况下，Pdf 文件会保存到源文件所在的位置。如需更改保存位置，请单击“浏览”按钮，选择新的目标文件夹。
4. 如有需要，您可以勾选“成功后删除源文件”，在 PDF 创建完成后自动删除原始文件。
5. 如有需要，您可以勾选“保持源文件的更改时间”，以便保留原文件的元数据信息。
6. 完成所有设置后，点击“确定”。