word批量转pdf代码 vbs

以下是使用VBS批量将Word文档转换为PDF的代码：

' 创建Word应用程序对象
Set objWord = CreateObject("Word.Application")

' 设置为不可见
objWord.Visible = False

' 获取指定目录下的所有Word文档
strFolder = "C:\路径\到\Word文件夹\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolder)
Set objFiles = objFolder.Files

' 循环处理每个Word文档
For Each objFile In objFiles
    ' 检查文件是否是Word文档
    If objFSO.GetExtensionName(objFile.Path) = "doc" Or objFSO.GetExtensionName(objFile.Path) = "docx" Then
        ' 打开Word文档
        Set objDoc = objWord.Documents.Open(objFile.Path)
        
        ' 设置保存路径和文件名
        strPDFPath = objFSO.BuildPath(objFolder.Path, objFSO.GetBaseName(objFile.Path) & ".pdf")
        
        ' 转换为PDF并保存
        objDoc.ExportAsFixedFormat strPDFPath, 17 ' 使用17表示PDF格式
        
        ' 关闭Word文档
        objDoc.Close
        
        ' 显示转换完成信息
        WScript.Echo "成功转换为PDF: " & strPDFPath
    End If
Next

' 退出Word应用程序
objWord.Quit

' 释放对象
Set objDoc = Nothing
Set objWord = Nothing
Set objFiles = Nothing
Set objFolder = Nothing
Set objFSO = Nothing

注意替换代码中的`C:\路径\到\Word文件夹\`为实际的Word文件所在目录的路径。该代码将遍历指定目录下的所有Word文档（.doc和.docx），将其转换为PDF格式，并保存在同一目录下，命名方式为原文件名加上.pdf后缀。转换完成后，脚本将显示转换成功的信息。最后，Word应用程序和对象将被释放。