提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

如何将每个页面保存为Word文档中的单独pdf文件?

使用Microsoft Word文档时,您可以将每个页面作为单独的pdf文件逐个保存,并使用其内置的“另存为”功能。 但是,如果有数百页需要拆分并保存为单独的pdf文件,你怎么办? 本文提供了快速解决此问题的方法。

使用VBA代码将每个页面作为单独的pdf文件批量保存


将文档的每个页面拆分并保存为单独的新文档:

在此 分割文件 实用程序 Kutools for Excel 可以帮助您轻松地将当前文档的每个页面拆分并保存为单独的新文档。

  • 选择保存拆分文档的位置;
  • 选择 来自 分裂 按下拉列表;
  • 点击 OK 开始。 查看截图:

Kutools for Word:拥有超过100便利的Word插件,可以免费试用30时间不受限制。 下载并免费试用现在!


使用VBA代码将每个页面作为单独的pdf文件批量保存

以下VBA代码可帮助您快速将文档中的每个页面同时保存为单独的pdf文件。 请做如下。

1。 打开文档,将每页或特定页面保存为pdf文件,然后按 其他 + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2。 在里面 Microsoft Visual Basic for Applications 窗口中,单击 插页 > 模块, 将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文件,如下面的屏幕截图所示。



推荐的Word生产力工具

Kutools For Word - 超过100 Word的高级功能,节省您的50%时间

  • 复杂和重复的操作可以在几秒钟内完成一次性处理。
  • 一次将多个图像跨文件夹插入Word文档。
  • 将多个文件夹合并并组合成一个具有所需订单的文件。
  • 根据标题,分节符或其他标准将当前文档拆分为单独的文档。
  • 在Doc和Docx,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等等......
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Bharadwaj · 3 months ago
    down loaded the kutools for trial - installed and when trying to something the word is closing and the tool never worked.

    • To post as a guest, your comment is unpublished.
      crystal · 3 months ago
      Good day,
      Thanks to let me know the bug, and sorry for the inconvenience. Would you provide your Word version? We need to figure out the problem with more information.