如何在Word文档中将每个页面另存为单独的pdf文件?
使用Microsoft Word文档时,可以使用其内置的“另存为”功能将每一页分别保存为单独的pdf文件。 但是,如果需要拆分成数百个页面并将其另存为单独的pdf文件,该怎么办? 本文为您提供了快速解决此问题的方法。
使用VBA代码将每个页面另存为单独的pdf文件
下面的VBA代码可帮助您同时快速将文档中的每个页面另存为单独的pdf文件。 请执行以下操作。
1.打开文档,您将每页或特定页面另存为pdf文件,然后按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。
2.在 Microsoft Visual Basic应用程序 窗口中,单击 插页 > 模块 将下面的VBA代码复制到“模块”窗口中。
VBA代码:将每个页面同时保存为Word文档中的单独pdf文件
Sub SaveAsSeparatePDFs()
'Updated by Extendoffice 20180906
Dim I As Long
Dim xStr As String
Dim xPathStr As Variant
Dim xDictoryStr As String
Dim xFileDlg As FileDialog
Dim xStartPage, xEndPage As Long
Dim xStartPageStr, xEndPageStr As String
Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFileDlg.Show <> -1 Then
MsgBox "Please chose a valid directory", vbInformation, "Kutools for Word"
Exit Sub
End If
xPathStr = xFileDlg.SelectedItems(1)
xStartPageStr = InputBox("Begin saving PDFs starting with page __? " & vbNewLine & "(ex: 1)", "Kutools for Word")
xEndPageStr = InputBox("Save PDFs until page __?" & vbNewLine & "(ex: 7)", "Kutools for Word")
If Not (IsNumeric(xStartPageStr) And IsNumeric(xEndPageStr)) Then
MsgBox "The enterng start page and end page should be number format", vbInformation, "Kutools for Word"
Exit Sub
End If
xStartPage = CInt(xStartPageStr)
xEndPage = CInt(xEndPageStr)
If xStartPage > xEndPage Then
MsgBox "The start page number can't be larger than end page", vbInformation, "Kutools for Word"
Exit Sub
End If
If xEndPage > ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Then
xEndPage = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
End If
For I = xStartPage To xEndPage
ActiveDocument.ExportAsFixedFormat xPathStr & "\Page_" & I & ".pdf", _
wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
False, False, wdExportCreateHeadingBookmarks, True, False, False
Next
End Sub
3。 按 F5 键来运行代码。
4.在 浏览 窗口中,选择一个文件夹来保存pdf文件,然后单击 OK 按钮。 看截图:
5.在第一 Kutools for Word 对话框,在文本框中输入文档的起始页码,然后单击 OK.
6.在第二 Kutools for Word 对话框中,输入文档的最后页码,然后单击 确定。 看截图:
备注:如果您只想将文档中的多个连续页面另存为单独的pdf文件(例如第4、5和6页),请在上述两个对话框中分别输入4和6。
运行代码后,请转到在步骤4中选择的指定文件夹,您可以看到所有页面均被拆分并另存为单独的pdf文件,如下图所示。
将文档的每一页拆分并保存为单独的新文档:
分割文件 实用程序 Kutools for Excel 可以帮助您轻松地将当前文档的每一页拆分并保存为单独的新文档,如下图所示。 立即下载并试用! (60-天免费试用)
最佳办公生产力工具
Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点!
🤖 Kutools 人工智能助手:用人工智能改变你的写作 - 生成内容 / 重写文本 / 总结文件 / 查询资料 基于文档,全部在Word中
📘 文档掌握: 分页 / 合并文件 / 以各种格式导出选择(PDF/TXT/DOC/HTML...) / 批量转换为PDF / 将页面导出为图像 / 一次打印多个文件...
✏ 内容编辑: 批量查找和替换 跨多个文件 / 调整所有图片的大小 / 转置表行和列 / 将表格转换为文字...
🧹 轻松清洁: 移开 多余的空间 / 分节符 / 所有标题 / 文本框 / 超链接 / 如需更多拆卸工具,请前往我们的 删除组...
➕ 创意插入: 插 千位分隔符 / 复选框 / 单选按钮 / 扫码支付 / 条码 / 对角线表 / 公式标题 / 图片说明 / 表标题 / 多张图片 / 发现更多 插入组...
🔍 精准选择:精确定位 特定页面 / 表 / 形状 / 标题段落 / 增强导航功能 更多 选择功能...
⭐ 星级增强: 快速导航至任何位置 / 自动插入重复文本 / 在文档窗口之间无缝切换 / 11 转换工具...