利用vbs脚本将word文档转换为pdf

Set wrd = GetObject(, "Word.Application")
wrd.Visible = False

path = "D:\word\"
wdFormatPDF = 17
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(path)
For Each file in folder.Files
    If InStr(file.Name, ".docx") > 0 Then
        wrd.Documents.Open file.Path
        wrd.ActiveDocument.SaveAs2 file.Path & ".pdf", wdFormatPDF
        wrd.ActiveDocument.Close
    End If
Next

wrd.Quit
Set wrd = Nothing