2种快速批量打印多个Word文档特定页面的方法

在下面的文章中，我们想与您分享2种快速批量打印多个Word文档的特定页面的方法。

批量打印文件对我们很多人来说绝对是一件幸事。 它节省了打开每个文件的时间，也节省了几次点击。 现在批量打印多个Word文档的特定页面怎么样？ 例如，同时打印多个文件的第一页会很有用。 此外，还需要打印多个文件的“目录”或“参考”页面。 那么我们可以做到吗？

是的，答案很短。 最棒的是我们不需要任何第三方插件。

方法一：批量打印多个文档的首页

1. 首先，将所有目标文档存储在同一个目录下。
2. 然后点击“Developer”选项卡和“Visual Basic”打开VBA编辑器。 或者改为按“Alt+F11”。
3. 接下来单击“正常”，然后单击“插入”。
4. 在下拉菜单中选择“模块”。
5. 现在将有一个新模块。 双击它以显示编辑空间。
6. 将宏粘贴到模块上：

Sub BatchPrintTheSpecifiedPagesOfWordDocuments()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
  With objWordApplication
    .Documents.Open (strFolder & strFile)
    .ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:=“1”
    .ActiveDocument.Close
  End With
  strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing 
End Sub

7. 接下来单击“运行”按钮或按“F5”。
8. 在弹出的框中，输入你保存文件的文件夹路径，比如“E:\测试词\测试\。 不要忘记最后一个“\”. 单击“确定”继续。

就等印刷了。

方法二：批量打印多个文档的特定页面

为了打印多个文档的特定页面，您可以使用以下宏。

使用与方法 1 中相同的步骤安装并运行宏，但替换为此宏：

Sub BatchPrintTheSpecifiedPagesOfWordDocuments()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String
  Dim strPages As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
  strPages = InputBox("Enter the Pages you want to print out", "Specified Pages", "For example:1,2")
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:=strPages
      .ActiveDocument.Close
    End With
  strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing 
End Sub

同样，在第一个框中输入文件夹路径。然后在第二个框中输入页码。要打印连续页面，请使用连字符分隔起始页码和结束页码，例如“1-3”。要打印不连续的页面，请使用逗号分隔，例如“1, 3, 5”。例如，“1, 3-6”表示打印第1、3、4、5和6页。

您需要的维修工具

碰巧 Word 突然停止响应，使您的文档卡住。 从 损坏的字. 有时后果是无法承受的。 您可能会因为没有进行备份而自责。 但您需要做的更重要的事情是获得恢复产品以立即检索数据。

作者简介：

Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 Excel损坏 和 pdf 修复软件产品。 欲了解更多信息，请访问 datanumen.com