vbs脚本，批量将word文件转为pdf文件

以下是将word文件批量转为pdf文件的vbs脚本：

点击查看代码

Set wdapp = CreateObject("word.application")
wdapp.Visible = False ' 隐藏Word应用程序

For i = 0 To WScript.Arguments.Count - 1
    Set doc = wdapp.Documents.Open(WScript.Arguments(i))
    
    ' 获取脚本所在目录作为输出路径
    scriptPath = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
    
    ' 生成PDF文件名（与原Word文件同名，但扩展名为.pdf）
    pdfName = scriptPath & Split(doc.Name, ".")(0) & ".pdf"
    
    ' 导出为PDF
    doc.ExportAsFixedFormat pdfName, 17 ' 17 代表 wdExportFormatPDF
    
    doc.Close False ' 关闭文档，不保存更改
Next

wdapp.Quit
Set wdapp = Nothing

• 可直接复制上述这段脚本文本到一个新建的文本文档中，再另存，注意编码格式选择为ANSI。

• 将文本文档后缀名由“.txt”改为“.vbs”。

• 框选中需要转为PDF格式的word文件，拖拉放置在上述生成的“.vbs”脚本文件上，拖拉放置在文件上时会出现复制字符。

• 等待片刻，在当前文件夹下便会出现转换后的PDF文件。