跳至主要内容

如何将Word文档拆分为单独的PDF文件保存?

Author: Sun Last Modified: 2025-05-08

虽然将整个Word文档保存为单个PDF文件非常简单,但有时您可能需要将文档拆分,并将每页或每个部分保存为单独的PDF文件。

在本文中,我们将介绍快速拆分Word文档并将页面保存为单独PDF文件的方法:

使用VBA将Word文档拆分为单独的PDF文件保存

使用Kutools按页面/标题1/分隔符拆分Word文档并保存为PDF


使用VBA将Word文档拆分为单独的PDF文件保存

如果您需要将Word文档拆分并将每页保存为单独的PDF文件,此VBA代码提供了一种快速高效的方法来实现。

  1. 按下 Alt + F11 打开“Microsoft Visual Basic for Applications”窗口。
  2. 点击“插入”>“模块”,然后将以下代码复制并粘贴到模块窗口中:
    Sub SaveAsSeparatePDFs()
    'UpdatebyExtendoffice20181120
        Dim I As Long
        Dim xDlg As FileDialog
        Dim xFolder As Variant
        Dim xStart, xEnd As Integer
        On Error GoTo lbl
        Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
        If xDlg.Show <> -1 Then Exit Sub
        xFolder = xDlg.SelectedItems(1)
        xStart = CInt(InputBox("Start Page", "KuTools for Word"))
        xEnd = CInt(InputBox("End Page:", "KuTools for Word"))
        If xStart <= xEnd Then
            For I = xStart To xEnd
                ActiveDocument.ExportAsFixedFormat OutputFileName:= _
                    xFolder & "\Page_" & I & ".pdf", ExportFormat:=wdExportFormatPDF, _
                    OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
                    wdExportFromTo, From:=I, To:=I, Item:=wdExportDocumentContent, _
                    IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:= _
                    wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
                    BitmapMissingFonts:=False, UseISO19005_1:=False
            Next
        End If
        Exit Sub
    lbl:
        MsgBox "Enter a valid page number", vbInformation, "KuTools for Word"
    End Sub
  3. 按下 F5 运行代码。会弹出一个“浏览”窗口。选择一个文件夹以保存PDF文件。
    Browse window
  4. 点击“确定”,然后输入文档的起始页码和结束页码。 提示:您可以通过输入特定的页码范围而不是整个文档来拆分文档的一部分。
    Dialog with text box to enter start page number Dialog with text box to enter last page number
  5. 点击“确定”。所选页面现在将作为单独的PDF文件保存在您选择的文件夹中。
    Pages are saved as separate PDF files in the selected folder

使用Kutools按页面/标题1/分隔符拆分Word文档并保存为PDF

如果您不熟悉VBA代码,可以使用插件工具——“Kutools for Word”。其“文档拆分”功能允许您根据分页符、页码、标题1、分节符、每隔n页或自定义页码将Word文档拆分为较小的文件。拆分后,您可以使用“文档格式转换器”批量将拆分的Word文档转换为PDF文件。

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

步骤1:拆分文档

  1. 打开要拆分的Word文档,然后点击“Kutools Plus”>“文档拆分”。
    Split button on the Kutools Plus tab on the ribbon
  2. 在“文档拆分”对话框中,在“类型”部分选择拆分规则。然后指定保存位置和文件前缀。点击“确定”。
    Split Document dialog
    提示: “类型”部分提供了六种拆分选项。有关详细信息, 请参阅功能教程.
    Split by section in the Split Document dialog

拆分后的文档现在已保存在指定位置。

Document is split and saved in the specified location

步骤2:批量将拆分的Word文档转换为PDF文件

  1. 拆分文档后,点击“Kutools Plus”>“格式转换”。
    Doc/Docx button on the Kutools tab on the ribbon
  2. 在“文档格式转换器”对话框中:
    1. 从“类型”下拉列表中选择“Docx 转 pdf”。
    2. 点击加号添加包含要转换为PDF的文档的文件或文件夹。
    3. 根据需要调整其他设置(默认情况下,PDF文件保存在源文件夹中,但您可以更改此设置)。
    4. 点击“确定”开始转换。
      Document Format Converter dialog

Word文档现在已转换为PDF文件。

Documents are converted to PDF files
Kutools for Word 是终极的 Word 插件,能够简化您的工作并提升文档处理技能。立即获取!

最佳办公生产力工具

Kutools for Word - 通过超过 100 个卓越功能提升您的 Word 体验!

🤖 Kutools AI 功能AI助手 / 实时助手 / 超级润色(保留格式)/ 超级翻译(保留格式)/ AI遮挡 / AI校正...

📘 文档精通拆分页面 / 合并文档 / 以多种格式导出选择内容(PDF/TXT/DOC/HTML...)/ 批量转换为 PDF...

内容编辑跨多个文件批量查找和替换 / 调整所有图片大小 / 翻转表格的行和列 / 表格转文本...

🧹 轻松清理:清除多余空格 / 分节符 / 文本框 / 超链接 / 更多清理工具,请前往“清除”组...

创意插入:插入千位分隔符 / 复选框 / 单选按钮 / 二维码 / 条形码 / 多张图片 / 在“插入 ”组中发现更多...

🔍 精确选择:定位特定页面 / 表格 / 形状 / 标题段落 / 使用更多 选择 功能增强导航...

星级增强功能跳转到任意位置 / 自动插入重复文本 / 在文档窗口之间切换 / 11 转换 工具...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 想尝试这些功能吗?立即下载 Kutools for Word!🚀
 

最佳办公生产力工具

Kutools for Word - 100+ Word 工具