需要安装ms office

Set objWord = CreateObject("Word.Application")
objWord.Visible = False
Set fso = CreateObject("Scripting.FileSystemObject")
For Each objFile In fso.GetFolder("D:\working\z99f\").Files
    If LCase(fso.GetExtensionName(objFile)) = "doc" Then
        Set objDoc = objWord.Documents.Open(objFile.Path)
        pdfPath = Replace(objFile.Path, ".doc", ".pdf")
        objDoc.SaveAs pdfPath, 17 '17为PDF格式代码
        objDoc.Close
'        Set objDoc = objWord.Documents.Open(objFile.Path)
'        pdfPath = Replace(objFile.Path, ".doc", ".docx")
'        objDoc.SaveAs pdfPath, 16 '16为docx格式代码
'        objDoc.Close
    End If
Next
objWord.Quit