公告

---

本专栏的相关的文章已不在简书同步更新，请直接访问 VBA探秘 官方网站或关注微信公众号获取最新文章动态。

coreldraw-vba-find-and-modify-document

目的

本文介绍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 "这是一个图层名称"

修改文档

上面代码已经演示了更新文档（直接找到文档，并在文档上创建了图层），但细心的你可能已经发现，在文档上创建了图层，却并没有激活这个文档。因此，通过这种方法，可以实现静默修改文档。

小结

查找文档函数 findDocument 函数非常有用，可以在编写需要操作多个文档的VBA代码时候派上用场。

---

原创声明：本文首发于个人CorelDRAW VBA博客，请尊重文章版权。
转载请注明原文链接：http://www.cdrvba.com/coreldraw-vba-find-and-modify-document/