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

Author: Siluvia Last Modified: 2025-07-31

使用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

Module window with the above code pasted

按 F5 运行代码。
将弹出一个浏览对话框。选择包含要转换为PDF的Word文档的文件夹，然后点击“确定”。

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

All Word documents in the selected folder are converted to separate PDF files

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

如果VBA代码难以处理，您可以尝试Kutools for Word的“转换文档”工具。与Word中的手动方法相比，该工具简化了流程，使其更加便捷和高效。

Kutools for Word，内置 AI 🤖，提供超过 100 种实用功能，助您简化任务。

立即下载

点击“Kutools Plus”>“格式转换”。
在“文档格式转换”窗口中，请按照以下步骤操作：
1. 从“类型”下拉菜单中选择“Docx 转 pdf”。
2. 点击以添加文档：
  选择“文件”以添加单个文档。
  
  选择“文件夹”以添加特定文件夹中的所有文档。
3. 默认情况下，PDF文件将保存到与源文件相同的位置。要更改位置，请点击“浏览”按钮并选择新的目标文件夹。
4. 可选地，勾选“成功后删除源文件”复选框，以便在创建PDF后删除原始文件。
5. 可选地，勾选“保持源文件的更改时间”复选框以保留原始文件的元数据。
6. 所有设置完成后，点击“确定”。