两种简单办法快速解决word批量转pdf

伙伴们肯定经常会需要把word文档转成pdf,之前文章里面介绍过不少格式转换的工具网站,其中也包括word转成pdf格式,传送门在这里:

在线格式转换利器-smallpdf & convertio

当然,如果你使用的是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文档即可。

两种简单办法快速解决word批量转pdf

这个方法的不足就是操作繁琐一些,但是转换的效果很好。

2、Word批量转PDF工具

目前这类的软件鱼目混珠,好用的非常之少,要么就是转换的pdf带有广告,要么就是需要付费。

两种简单办法快速解决word批量转pdf

经过一番比较和试用,永恒君通过某宝找到一款相对靠谱的软件,名字就叫「Word批量转PDF工具」,很小巧简单,选择好word文件的文件夹和转换的pdf文件夹,点击转换即可。

非注册版本pdf后面会有广告,注册的则没有。

永恒君整理了一下带注册机的版本,分享给大家,wx公号后台回复word2pdf即可。

当然,这种方法的不足就是谁也不知道软件明天是否还能用。

两种方法一起用,相信word批量转pdf这个事情一定不会是难事~~

欢迎交流!

文章链接:https://www.sbkko.com/ganhuo-561.html
文章标题:两种简单办法快速解决word批量转pdf
文章版权:SBKKO 所发布的内容,部分为原创文章,转载请注明来源,网络转载文章如有侵权请联系我们!

给TA打赏
共{{data.count}}人
人已打赏
干货分享

一日行为活动记录体系(V1.0版)

2018-9-19 12:11:00

干货分享

B计划第12期|一份顺丰PPT的美化案例

2018-9-19 17:24:00

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索