跳至主要内容

Kutools for Office — 一套工具,五种功能。事半功倍。

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

Author Sun Last modified

虽然将整个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 插件,能够简化您的工作并提升文档处理技能。立即获取!

最佳Office办公效率工具

Kutools for Word - 用超过100项强大功能全面提升你的Word体验!

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

📘 文档掌控分割页面 / 文档合并 / 区域导出为多种格式(PDF/TXT/DOC/HTML等)/ 批量转换为PDF……

正文编辑跨多个文件批量查找与替换 / 一键调整所有图片大小 / 翻转表格行列 / 表格转文本……

🧹 高效清理:一扫多余空格 / 分节符 / 文本框 / 超链接 / 想了解更多删除工具,请前往删除分组……

创意插入:插入千位区分符 /复选框 /选项按钮 / 二维码 / 条形码 / 批量插入图片 / 更多内容请见插入分组……

🔍 精准选取:快速定位指定页面 / 表格 / 形状 / 标题段落 / 利用更多 选择 功能提升导航体验……

实用增强跳转任意区域 / 自动插入重复文本 / 文档窗口间一键切换 /11 转换工具……

🌍 支持40多种语言:自由选择你喜欢的界面语言——Kutools支持英语、西班牙语、德语、法语、中文及其他40余种语言!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 想立即体验这些功能?马上下载 Kutools for Word!🚀
 

✨ Kutools for Office – 一次安装,五大强力工具集成!

内含 Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 五大工具一站式集成 | 🔗 无缝兼容Microsoft Office | ⚡立即提升效率、节省时间

最佳Office办公效率工具

Kutools for Word - 100+ 项Word工具