伙伴们肯定经常会需要把word文档转成pdf，之前文章里面介绍过不少格式转换的工具网站，其中也包括word转成pdf格式，传送门在这里：
当然，如果你使用的是word2007以上的版本，直接另存为pdf可能还更快。
但是，如果是要批量转换很多个word文档的时候，用上面的工具就显得很吃力了。
今天介绍两个快速批量转换word为pdf文件的方法。
1、虚拟打印机+VBA批量打印
这个方法的原理就是，通过虚拟机将word打印成pdf格式，再用vba这个工具将这个过程批量化。
关于虚拟机的功能和安装，以前介绍过，看这里：
没有打印机、无法打印预览，虚拟打印机统统帮你搞定
再说说VBA的代码，网上也有不少大神都有分享，永恒君整理了一份，分享给各位：
Sub 批量打印WORD文档()
Dim fileToOpen, GetOpenFilename, App, iFile
fileToOpen = Application.GetOpenFilename(filefilter:="Word文档(*.do*),*.do*", FilterIndex:=4, Title:="请选择要处理的文档(可多选)", MultiSelect:=True)
If Not IsArray(fileToOpen) Then
MsgBox "你没有选择文件", vbOKOnly, "提示": Exit Sub
Else
Set App = CreateObject("Word.Application")
For Each iFile In fileToOpen
Set WrdDoc = App.Documents.Open(iFile)
App.Documents(WrdDoc).PrintOut
App.Documents(WrdDoc).Close False
T = T + 1
Next
End If
MsgBox "操作完成！！" & vbCrLf & "打印了 " & T & " 个文件。", vbOKOnly, "提示"
End Sub
把上面的代码粘贴到excel VBA编辑器里面，然后运行，选择要转换的word文档即可。
这个方法的不足就是操作繁琐一些，但是转换的效果很好。
2、Word批量转PDF工具
目前这类的软件鱼目混珠，好用的非常之少，要么就是转换的pdf带有广告，要么就是需要付费。
经过一番比较和试用，永恒君通过某宝找到一款相对靠谱的软件，名字就叫「Word批量转PDF工具」，很小巧简单，选择好word文件的文件夹和转换的pdf文件夹，点击转换即可。
非注册版本pdf后面会有广告，注册的则没有。
永恒君整理了一下带注册机的版本，分享给大家，wx公号后台回复word2pdf即可。
当然，这种方法的不足就是谁也不知道软件明天是否还能用。
两种方法一起用，相信word批量转pdf这个事情一定不会是难事~~
欢迎交流！
