如何用Excel VBA操控64位Adobe Acrobat Reader？报错求助

核心问题 #

Adobe Reader（免费版）不支持VBA自动化接口，AcroExch.App是Adobe Acrobat Pro（付费版）专属的对象模型，用Reader运行这段代码必然报错。你引用的「Adobe Acrobat 10.0 Type Library」对应Acrobat Pro组件，和Reader完全不兼容。

解决步骤 #

• 先安装Adobe Acrobat Pro 10.0及以上版本，Reader没法实现你的操控需求
• 配置VBA引用：
  1. 打开VBA编辑器（按Alt+F11）
  2. 点击「工具」→「引用」，找到「Adobe Acrobat 10.0 Type Library」并勾选确定
• 替换代码（两种写法任选其一）：
  早期绑定（需引用类型库，有代码智能提示）：

  Public Sub DoSomething_Adobe()
      Dim AcroApp As CAcroApp
      Set AcroApp = New CAcroApp ' 用New替代CreateObject
      AcroApp.Show
      ' 示例：打开指定PDF并操作
      ' Dim AcroDoc As CAcroPDDoc
      ' Set AcroDoc = New CAcroPDDoc
      ' If AcroDoc.Open("C:\你的PDF文件路径.pdf") Then
      '     ' 这里添加提取信息或操控PDF的代码
      ' End If
  End Sub
  

  晚期绑定（无需引用类型库，兼容性更强）：

  Public Sub DoSomething_Adobe()
      Dim AcroApp As Object
      Set AcroApp = CreateObject("AcroExch.App")
      AcroApp.Show
  End Sub
  

• 运行前确保Acrobat Pro没被其他进程占用，必要时重启Acrobat再试

额外提示 #

如果只是提取PDF文本，也可以用pdftotext这类免费命令行工具配合VBA调用，不用依赖Acrobat Pro；但如果要做修改PDF、添加批注这类深度操作，必须用Acrobat Pro的自动化接口。

内容的提问来源于stack exchange，提问作者CarlosG1