使用VBA批量转换文件夹PDF为TXT时遇运行时错误91求助

阿华AIGC实验室

2026-5-20

解决VBA中Acrobat GetJSObject运行时错误91的问题

这个错误91（对象变量或With块变量未设置）通常是因为AcroXPDDoc本身没有被正确初始化，或者调用GetJSObject时没有有效的PDF文档上下文。下面是几个针对性的排查和解决步骤：

先确认Acrobat对象库引用是否正确
打开VBA编辑器，点击「工具」→「引用」，确保你已经勾选了对应版本的Adobe Acrobat xx.x Type Library（比如Acrobat DC就是20.x左右的版本）。如果找不到这个选项，要么是你没装完整的Acrobat（注意是Acrobat Pro/Standard，不是Reader），要么需要手动浏览找到Acrobat.tlb文件，一般路径是C:\Program Files (x86)\Adobe\Acrobat xx.x\Acrobat\。

确保AcroXPDDoc正确绑定到已打开的PDF
很多人会直接创建AcroPDDoc对象，但GetJSObject需要依赖Acrobat应用的运行上下文，通过AcroAVDoc打开PDF再获取PDDoc才是可靠的方式。给你补一段关键的初始化代码示例：

Option Explicit
Sub convertpdf5()
    Dim AcroXApp As Acrobat.AcroApp
    Dim AcroXAVDoc As Acrobat.AcroAVDoc
    Dim AcroXPDDoc As Acrobat.AcroPDDoc
    Dim jsObj As Object
    
    ' 初始化Acrobat应用
    Set AcroXApp = CreateObject("AcroExch.App")
    Set AcroXAVDoc = CreateObject("AcroExch.AVDoc")
    
    ' 打开目标PDF（替换成你的文件路径）
    If AcroXAVDoc.Open("C:\Source\test.pdf", "") Then
        ' 获取PDDoc对象
        Set AcroXPDDoc = AcroXAVDoc.GetPDDoc()
        
        ' 关键检查：确保PDDoc不为空
        If Not AcroXPDDoc Is Nothing Then
            Set jsObj = AcroXPDDoc.GetJSObject()
            
            ' 这里写你的转换逻辑，比如导出为TXT
            If Not jsObj Is Nothing Then
                jsObj.SaveAs "C:\Target\test.txt", "com.adobe.acrobat.plain-text"
            Else
                MsgBox "无法获取JS对象，可能PDF受保护或损坏"
            End If
        Else
            MsgBox "无法获取PDF文档对象"
        End If
        
        ' 关闭文档
        AcroXAVDoc.Close False
    Else
        MsgBox "无法打开指定的PDF文件"
    End If
    
    ' 清理资源
    Set jsObj = Nothing
    Set AcroXPDDoc = Nothing
    Set AcroXAVDoc = Nothing
    AcroXApp.Exit
    Set AcroXApp = Nothing
End Sub

检查PDF文件本身的问题
如果PDF是加密的（需要密码打开）、损坏的，或者有特殊权限限制，GetJSObject会返回空。先手动打开PDF确认能正常访问，如果有密码，要在Open方法的第二个参数传入密码，比如AcroXAVDoc.Open("C:\encrypted.pdf", "your_password")。
权限和进程冲突问题
有时候Windows权限会阻止Office程序和Acrobat交互，右键点击你的Excel/Access文件，选择「以管理员身份运行」再测试。另外，运行代码前关闭所有Acrobat窗口，避免后台进程冲突。