CorelDRAW VBA - 查找和更新文档

目的

本文介绍CorelDRAW VBA使用 findDocument 函数对查找文档、更新文档的相关操作代码。

查找文档

查找文档可以通过 findDocument 函数，也可以通过文档的索引来获取对应文档的引用。
以下代码演示 findDocument 函数的用法：

Dim doc As Document
Set doc = findDocument("文档1.cdr")
' 如果文档存在，则在文档上创建一个图层
If Not doc Is Nothing Then doc.ActivePage.CreateLayer "这是一个图层名称"

以下代码演示通过文档索引直接获取文档引用的方法：

Dim doc As Document
Set doc = Documents(3) ' 查找第3个文档
doc.ActivePage.CreateLayer "这是