目的
本文介绍CorelDRAW VBA代码遍历文档、页面或图层中所有对象的相关操作代码,有时候程序可能需要查找页面上的对象,用遍历的方式可实现批量查找、检索对象。
准备文档
创建1个新文档,添加两个页面,在第一个页面中添加1个文本,并导入一张图像;在第二个页面中添加一个文本。如下图所示:
代码演示
下面的代码采用3重循环演示了遍历当前文档中所有页面、所有图层、所有图形对象的方法。
注:如果要遍历所有文档,则需要在最外层增加1层循环,用来遍历所有文档,此处不做演示,有疑问请留言。
Sub main()
' 定义循环变量
Dim i As Integer, j As Integer, k As Inte