Excel VBA调用Bluebeam Revu21合并PDF遇ActiveX错误求解决方案

一、代码中的核心问题 #

1. 错误的ProgID：你使用的RevuLauncher.Application是旧版本Bluebeam的ProgID，Revu 21的正确ProgID应为Bluebeam.Revu.Application，这是触发“ActiveX component cannot create object”错误的主要原因。
2. 重复的PDF路径：代码中PDFPath1和PDFPath2指向了同一个文件，合并后不会产生实际效果，建议修改为不同的PDF路径。
3. InsertPages参数使用错误：Revu的InsertPages方法参数顺序为InsertPages(FileName As String, PageStart As Long, PageEnd As Long, InsertAfterPage As Long, Password As String)，你当前的参数位置不符合规范，会导致插入逻辑异常。

二、库引用与两种绑定方式 #

1. 后期绑定（无需手动引用库） #

如果不想添加类型库引用，使用后期绑定只需修正ProgID和参数即可，修改后的代码如下：

Dim BluebeamApp As Object
Dim PDFDocument As Object
Dim PDFPath1 As String
Dim PDFPath2 As String

' 定义两个不同的PDF文件路径
PDFPath1 = "D:\Keylock\keylayout1.pdf"
PDFPath2 = "D:\Keylock\keylayout2.pdf"

' 创建Bluebeam Revu 21应用对象（正确ProgID）
Set BluebeamApp = CreateObject("Bluebeam.Revu.Application")
BluebeamApp.Visible = True ' 可选：显示Revu界面，方便调试

' 创建新的空白文档
Set PDFDocument = BluebeamApp.Documents.Add

' 插入第一个PDF的所有页面（从第0页到最后一页，插入到空白文档的第0页后）
PDFDocument.InsertPages PDFPath1, 0, PDFDocument.GetPageCount(PDFPath1) - 1, -1, ""

' 插入第二个PDF的所有页面，插入到当前文档最后一页之后
PDFDocument.InsertPages PDFPath2, 0, PDFDocument.GetPageCount(PDFPath2) - 1, PDFDocument.Pages.Count - 1, ""

' 保存合并后的PDF
PDFDocument.SaveAs "D:\Keylock\CombinedFile.pdf", False

' 关闭文档和应用
PDFDocument.Close
BluebeamApp.Quit

' 释放对象
Set PDFDocument = Nothing
Set BluebeamApp = Nothing

2. 早期绑定（需引用类型库） #

如果需要VBA编辑器的智能提示支持，可按以下步骤添加引用：

• 打开VBA编辑器，点击工具 > 引用
• 在弹出的对话框中找到并勾选Bluebeam Revu 21 Object Library
• 点击确定后，即可声明具体的对象类型，代码示例：

Dim BluebeamApp As Bluebeam.Revu.Application
Dim PDFDocument As Bluebeam.Document
Dim PDFPath1 As String
Dim PDFPath2 As String

PDFPath1 = "D:\Keylock\keylayout1.pdf"
PDFPath2 = "D:\Keylock\keylayout2.pdf"

Set BluebeamApp = New Bluebeam.Revu.Application
BluebeamApp.Visible = True
Set PDFDocument = BluebeamApp.Documents.Add

PDFDocument.InsertPages PDFPath1, 0, PDFDocument.GetPageCount(PDFPath1) - 1, -1, ""
PDFDocument.InsertPages PDFPath2, 0, PDFDocument.GetPageCount(PDFPath2) - 1, PDFDocument.Pages.Count - 1, ""

PDFDocument.SaveAs "D:\Keylock\CombinedFile.pdf", False

PDFDocument.Close
BluebeamApp.Quit

Set PDFDocument = Nothing
Set BluebeamApp = Nothing

三、额外注意事项 #

• 确保安装的是Bluebeam Revu 21完整版（标准版或企业版，免费版不支持COM自动化功能）
• 运行代码前关闭所有打开的Revu实例，避免进程冲突
• 若仍报错，检查Revu自动化设置：打开Revu，点击设置 > 首选项 > 应用程序 > 高级，勾选允许来自外部应用程序的自动化命令

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