ActiveX无法在尝试将PDF文件转换为文本文件时创建对象错误
ActiveX无法在尝试将PDF文件转换为文本文件时创建对象错误
提问于 2015-07-22 17:26:12
当我试图将PDF文件转换为文本文件时，会遇到以下错误：
包含Acrobat 429 : ActiveX无法创建对象
我的代码是：
Private Sub CommandButton1_Click()
Dim AcroXApp As Acrobat.AcroApp
Dim AcroXAVDoc As Acrobat.AcroAVDoc
Dim AcroXPDDoc As Acrobat.AcroPDDoc
Dim Filename As String
Dim jsObj As Object
Dim NewFileName As String
Filename = "C:\Users\Boominathan\Desktop\test.pdf"
NewFileName = "C:\file.txt"
Set AcroXApp = CreateObject("AcroExch.App")
Set AcroXAVDoc = CreateObject("AcroExch.AVDoc")
AcroXAVDoc.Open Filename, "Acrobat"
Set AcroXPDDoc = AcroXAVDoc.GetPDDoc
Set jsObj = AcroXPDDoc.GetJSObject
jsObj.SaveAs NewFileName, "com.adobe.acrobat.plain-text"
AcroXAVDoc.Close False
AcroXApp.Hide
AcroXApp.Exit
End Sub错误出现在以下一行：
Set AcroXApp = CreateObject("AcroExch.App")你能帮我解决这个问题吗？
回答 1
Stack Overflow用户
发布于 2015-07-22 18:32:30
该错误似乎表明您的计算机上没有注册类名"AcroExch.App"。
另外，您已经声明了Acrobat.AcroApp类型的对象，所以您需要确定使用的是哪个类，因为我认为这可能会导致类型13“不匹配”错误，即使您注册了AcroExch.App类，因为它返回的对象类型与变量声明的类型不同。
我不熟悉这些对象模型，但您可以尝试：
Set AcroXApp = CreateObject("Acrobat.AcroApp")
Set AcroXAVDoc = CreateObject("Acrobat.AcroAVDoc")页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/31570011
复制相关文章
相似问题
腾讯云开发者
