Word文件批量转PDF格式超实用

工作或者生活中难免会遇到需要将word文件转换成pdf格式来使用，那么一个两个的倒还好，如果是需要几十上百个的话就很棘手了，那么就可以用到这一个vbs脚本，轻轻松松让你体验行云流水的感觉！

首先我们先新建一个文件夹

然后将你的word文件放到文件夹中

接下来我们新建一个文本文档

然后在文档中放入以下代码

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!"

然后保存，更改后缀名为.vbs(注意有个.)

如果没有显示后缀名，也可以另存为，全部文件改为vbs后缀

双击后，就会自动将word文件转为pdf了