Sub test()Dim acroapp As Object, acroAVDoc As Object, acroPDDoc As Object, jsobj As ObjectDim filePath, savePath As StringDim fso As Object, objFile As ObjectSet fso = CreateObject("scripting.filesystemobject")Set acroapp = CreateObject("AcroExch.App")Set acroAVDoc = CreateObject("AcroExch.AVDoc")filePath = Application.GetOpenFilename("文件(*.pdf),*.pdf;*.PDF", , "请选择文件", , True)For i = LBound(filePath) To UBound(filePath)Set objFile = fso.Getfile(filePath(i))savePath = Replace(objFile.Path, ".pdf", ".docx", , , vbTextCompare)If acroAVDoc.Open(filePath(i), "") ThenSet acroPDDoc = acroAVDoc.GetPDDocSet jsobj = acroPDDoc.GetJSObjectjsobj.SaveAs savePath, "com.adobe.acrobat.docx"acroAVDoc.Close TrueEnd IfNext iEnd Sub
第5行：创建fso对象
第6行：创建Acrobat对象
第7行：创建PDF文档对象
第8行：使用getopenFilename获取PDF文件路径
第9行：循环选取的PDF文件路径
第10行:使用FSO获取文件
第11行：将文件路径的.pdf替换为.docx，作为保存路径
第12行：打开PDF文件
第13行：获取PDF页面
第14行：获取js对象
第15行：将PDF另存为docx格式的word文档
第16行：关闭PDF
下面来看看转换效果
好了，本期教程就到这里啦，走过路过的点个关注分享一下吧，谢谢啦
