word批量打印助手_如何批量打印数十份甚至上百份Word文档

前言

我本来觉得这个功能是雕虫小技，不值一提，但没想到有朋友和我说：这个功能太棒了！

那既然这么棒，就分享给大家吧！

背景

我给大家举个刚刚出炉的栗子：

这几天我在给参与BiCovid项目的志愿者制作实习实践证明，请他们根据模板填好实践证明上的个人信息后发给我。

于是我就先后收到的了七八十份Word格式的文档：

接下来我要做的事情理论上就是：

1)逐个打开每个Word文档

2)点击打印

3)关掉文档

如果这样做，一个文档可能会花上半分钟时间，要是电脑慢或者Word慢的话，要花的时间更长，而且文档越多时间越长。

但解决方法也非常简单，在这里给大家分享几种：

一、在Windows里全选并打印

推荐指数：1星

在Windows里选中要打印的Word文档，然后右键点击“打印”，如下图：

图源：

https://www.datanumen.com/blogs/2-quick-ways-batch-print-multiple-word-documents/

但是这种方法有两个问题：

1)在很多人的电脑上按照上述操作是找不到“打印”按钮的，我的电脑就是这样的。

2)使用这种方法最多只能选择15个文件。

我本来还想给大家演示一下，但在两个电脑上都失败了，所以也不推荐给大家了。

二、在MacOS里全选并打印

推荐指数：3星

我自然不会忘了Mac用户，如果想在Mac上做这个操作，可以在连接了打印机的情况下，直接选中Word文档，然后在“文件”选择打印，如下图：

在实际使用中，Word窗口就会快速蹦出来一次，然后全部文件就会逐个加入到打印队列中，并开始打印。

之所以推荐指数是3星，有两个原因：

1)很多人没有Mac，即便有Mac，也很少将自己的电脑与打印店或者办公室的打印机连接在一起，所以对很多人来说这个比较直接的方法并不现实。

2)对于有Mac的用户，身边又没有打印机，可以曲线救国：

第一步：安装RWTS PDFwirter

https://github.com/rodyager/RWTS-PDFwriter

这个东西安装非常方便，是个虚拟打印机，可以把要打印的文档批量转成PDF

第二步：将这个软件设置为默认的打印机

第三步：将Word文档批量转换成PDF

这个时候还是按照前面的方法，批量选中要打印的Word文件，并打印，这个时候PDFwriter就会自动将每个文件转换成PDF：

在上图中，左边是要打印的Word文档，右边是要自动输出的PDF格式的文件。

第四步：合并PDF

但同时打印这么多PDF也不方便，需要将它们合并成一个文件，这个时候用Mac自带的“预览”就可以了，参考下面的官方教程：

https://support.apple.com/zh-cn/HT202945

有了这么一个完整的PDF发给谁都方便打印了。

不过，在Mac里，其实也可以直接把所有文件拖到打印队列中，如下图：

在打印机设置中，点击“打开打印队列”，然后把要打印的Word文件直接拖进去，接下来就开始打印了。

但如果你没有打印机，也可以使用PDFwriter，将其批量打印成PDF。

三、在Windows里将所有Word文件合并成一个PDF

推荐指数：4星

看到第二种方法，Windows用户就酸了，我也想这么操作啊！

在Windows上能完成这种操作的软件太多了，先给大家分享几个立学可用的免费方法：

1)Word批量转PDF

如果在网上搜索Word批量转PDF的软件会发现很多很多，但基本上这些软件都会把Word批量转PDF的功能设置为收费功能，让你以为收费才可以实现这个功能。

但实际上，可以用下面这段代码：

On Error Resume Next    Const wdExportFormatPDF = 17    Set oWord = WScript.CreateObject("Word.Application")    Set fso = WScript.CreateObject("Scripting.Filesystemobject")    Set fds=fso.GetFolder(".")    Set ffs=fds.Files    For Each ff In ffs    If (LCase(Right(ff.Name,4))=".doc" Or LCase(Right(ff.Name,4))="docx" ) And Left(ff.Name,1)<>"~" Then        Set oDoc=oWord.Documents.Open(ff.Path)        odoc.ExportAsFixedFormat Left(ff.Path,InStrRev(ff.Path,"."))&"pdf",wdExportFormatPDF        If Err.Number Then        MsgBox Err.Description        End If    End If    Next    odoc.Close    oword.Quit    Set oDoc=Nothing    Set oWord =Nothing    MsgBox "Finished!"

将这段代码粘贴到一个txt文件里，然后把后缀名从txt改成vbs，如下图：

把这个文件放到你想转换的所有Word文件所在的文件夹里，双击运行即可，如下图：

双击执行后，效果如下：

2)PDF打印

在我的Windows系统里，当我选中很多PDF文件再点击右键的时候会出现“打印”的按钮，而且亲测确实可以将选中的PDF文件送到打印机里，如下图：

但有意思的是选中超过15个文件后，这个按钮就消失了：

3)PDF合并

如果要合并PDF的话，Windows下的工具就多了去了，像PDFsam的免费版PDFsam Basic：

下载地址：

https://pdfsam.org/zh/download-pdfsam-basic/

把PDF拖进去之后就能快速合并好了。

将合并好的PDF放到U盘里或者放到邮箱里，到有打印机的地方就可以快速打印了。

四、我的个人方案

很多年前我无意中下载到一个叫Nitro Pro的工具，这个工具可以直接将多个Word文档一次性合并成一个PDF，应该说比上面的方案都要更简单，但问题是：
1)这个工具超级贵

2)这个工具的盗版遍布各地，许多盗版软件的安装包里有病毒

所以我也就只能给大家说说，并且给你们提供了在Windows和Mac上可以使用的一些免费的方案。我既不希望大家去花钱买软件，也不希望你们去使用盗版软件。

总结

Windows用户

如果你使用的是Windows电脑，电脑又连接了打印机，那么：

首先看一下你选中了一个Word文档后，右键是否能看到“打印”按钮；如果可以就可以直接选中多个Word文档，然后直接打印。但每次最多打印15个文件。

如果你使用的是Windows电脑，电脑上又没有连接打印机，那么：

使用粘贴复制一段代码将你的所有Word文件快速转换成PDF文件；然后将PDF文件合并成一个完整的PDF文件，再到有打印机的地方打印。

Mac用户

如果你使用的是Mac电脑，电脑上又连接了打印机，那么：

将要打印的Word文档直接拖到打印机的打印队列中，可以直接打印了。

如果你使用的Mac电脑，电脑上又没有安装打印机，那么：

先安装RWTS PDFwirter，将所有Word文档转换成PDF，再使用“预览”app将所有PDF合并成一个PDF，然后再到有打印机的地方打印。

如果你有Nitro Pro

如果你电脑上安装了Nitro Pro这种工具，只需要直接将各种要打印的文件(不仅是Word，任何它支持的文件格式拖进去并自由排序)加入进去，就可以合并成一个PDF格式的文件。

怎么说呢，方法真的很多，但不是每种方法都适合每一个人，但一定要寻找好方法，这样才能延长寿命。