Word 批量转 PDF脚本

1.将需要转PDF的文档放一个文件夹里

2.复制下面代码到文本中，另存为xxx.vbs 文件（注意：类型选为所有文件）

3.放入word文件夹，双击运行

On Error Resume Next
    Const wdExportFormatPDF = 17
    Set oWord = WScript.CreateObject("Word.Application")
    Set fso = WScript.CreateObject("Scripting.Filesystemobject")
    Set fds=fso.GetFolder(".")