以下是将word文件批量转为pdf文件的vbs脚本：
点击查看代码
Set wdapp = CreateObject("word.application")
wdapp.Visible = False ' 隐藏Word应用程序For i = 0 To WScript.Arguments.Count - 1Set doc = wdapp.Documents.Open(WScript.Arguments(i))' 获取脚本所在目录作为输出路径scriptPath = Replace(WScript.ScriptFullName, WScript.ScriptName, "")' 生成PDF文件名（与原Word文件同名，但扩展名为.pdf）pdfName = scriptPath & Split(doc.Name, ".")(0) & ".pdf"' 导出为PDFdoc.ExportAsFixedFormat pdfName, 17 ' 17 代表 wdExportFormatPDFdoc.Close False ' 关闭文档，不保存更改
Nextwdapp.Quit
Set wdapp = Nothing
-
可直接复制上述这段脚本文本到一个新建的文本文档中，再另存，注意编码格式选择为ANSI。
-
将文本文档后缀名由“.txt”改为“.vbs”。
-
框选中需要转为PDF格式的word文件，拖拉放置在上述生成的“.vbs”脚本文件上，拖拉放置在文件上时会出现复制字符。
-
等待片刻，在当前文件夹下便会出现转换后的PDF文件。
