Excel VBA晚绑定访问CorelDRAW页面Orientation属性执行失败

晚绑定模式下VBA不会加载CorelDRAW的类型库，CorelDRAW SDK中预定义的枚举常量cdrLandscape不会被自动导入到当前Excel VBA工程，属于未定义标识符。VBA默认会将未定义的标识符识别为值为Empty的变体，参与数值比较时Empty会被转换为0，和页面Orientation属性返回的实际枚举值做比对时就会触发运行错误。
你能在本地窗口正常观测到page对象的Orientation属性，是因为晚绑定通过COM的IDispatch接口可以正常读取对象属性、调用对象方法，问题和对象本身、属性访问权限无关，仅出在常量未定义上。

必须使用晚绑定的前提下，二选一即可修复问题：

• 方案1（推荐，代码可读性更好）：在代码模块顶部手动声明需要用到的CorelDRAW枚举常量，原有业务判断逻辑不需要做任何修改。CorelDRAW页面对应的方向枚举值为：
  • 纵向cdrPortrait：对应值为0
  • 横向cdrLandscape：对应值为1
• 方案2（适合简单场景）：直接把判断条件中的枚举常量替换为对应硬编码数值，不需要额外声明常量。

修复后的可运行代码示例：

' 晚绑定场景下手动声明缺失的CorelDRAW常量
Const cdrLandscape As Long = 1
Const cdrPortrait As Long = 0

Dim app As Object
Dim page As Object

Set app = CreateObject("CorelDRAW.Application")
app.OpenDocument "xxx.pdf"

For Each page In app.ActiveDocument.Pages
    If page.Orientation = cdrLandscape Then
        ' 填写横向页面需要执行的任务逻辑
    End If
Next

如果选择方案2，直接删除开头的常量声明，把If判断行替换为If page.Orientation = 1 Then即可。该枚举值在近年发布的所有CorelDRAW版本中均保持一致，不存在版本兼容问题。

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