需要安装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