尝试将 PDF 文件转换为文本文件时 ActiveX 无法创建对象错误

Question

当我尝试将我的 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")

你能帮我解决吗？

Answer 1

该错误似乎表明类名"AcroExch.App" 未在您的计算机上注册。

另外，你已经声明了 Acrobat.AcroApp 类型的对象，所以你需要确定你正在使用哪个类，因为我认为即使你这样做也可能会引发类型 13“不匹配”错误注册 AcroExch.App 类，因为它返回的对象类型与变量声明的类型不同。

我不熟悉这些对象模型，但您可以尝试：

Set AcroXApp = CreateObject("Acrobat.AcroApp")

Set AcroXAVDoc = CreateObject("Acrobat.AcroAVDoc")