CorelDRAW VBA - 遍历文档、页面、图层和形状对象

目的

本文介绍CorelDRAW VBA代码遍历文档、页面或图层中所有对象的相关操作代码，有时候程序可能需要查找页面上的对象，用遍历的方式可实现批量查找、检索对象。

准备文档

创建1个新文档，添加两个页面，在第一个页面中添加1个文本，并导入一张图像；在第二个页面中添加一个文本。如下图所示：

代码演示

下面的代码采用3重循环演示了遍历当前文档中所有页面、所有图层、所有图形对象的方法。
注：如果要遍历所有文档，则需要在最外层增加1层循环，用来遍历所有文档，此处不做演示，有疑问请留言。

Sub main()
    ' 定义循环变量
    Dim i As Integer, j As Integer, k As Inte