如果有朋友需要将大量的Word文件保存为PDF文件,一个文件一个文件的另存为PDF肯定会很麻烦,教大家一个黑科技,2分钟之内做好一个小程序,然后就可以将Word文件批量转换成PDF啦!
当然得注意的是:你的电脑需要先安装Office2007及以上版本
第一步:将代码放进一个文本文档中
第二步:将文本文档另存为vbs文件(将txt修改为vbs)
注意:文件保存类型需选择“所有文件(*.*)”类型
第三步:将另存为的vbs文件放入需要转换word的文件夹内
第四步:双击vbs文件即可
文件地址:
https://pan.baidu.com/s/12j6ZKWQeHPAVL6gowmCn4A
代码如下:
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 "Word文件已全部轩换为PDF格式!"
关注微信公众号,领取更多干货