公告

---

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

coreldraw-vba-create-document

目的

这篇教程将教会你使用 CorelDRAW VBA代码来创建和打开文档，演示 Document 对象的使用方法。

创建文档

Application 对象有两个方法用来创建文档：CreateDocument 和 CreateDocumentFromTemplate。下面做简单说明：

Application.CreateDocument 方法基于默认的页面大小、方向和样式创建了一个空文档，该函数的定义如下：

Application.CreateDocument() As Document

Application.CreateDocumentFromTemplate 方法从一个特定的模板文件来创建一个无标题文档，该函数的定义如下：

Application.CreateDocumentFromTemplate(Template As String, [IncludeGraphics As Boolean = True]) As Document

其中，第一个必选参数Template是模板文件的位置，模板文件的后缀名一般是.cdt；第二个参数是可选参数，用来指定是否包含图像，默认值为True。
这两个创建文档的函数都返回了一个新文档对象的引用，因此，它们通常以以下方式使用：

Dim newDoc as Document
Set newDoc = CreateDocument

新创建的文档可以通过使用 Application.ActiveDocument 来立即激活，要查看激活文档的相关信息，请继续往下浏览。

如果您愿意，可以使用事件处理程序对创建文档触发的事件作出响应，也就是说在某个文档创建后，你可以做你自己想做的事情：

• Application.DocumentNew
• GlobalMacroStorage.DocumentNew

以用户创建的全局宏(GlobalMacroStorage)为例，详细请看代码：

' 运行入口(请在宏面板中双击运行此方法)
Sub main()
    Dim newDoc As Document
    Set newDoc = CreateDocument
End Sub

'*********************************************************************************************
' 文档回调事件
' 每当新的文档被创建时，此过程被触发
' @author Zebe
'*********************************************************************************************
Private Sub GlobalMacroStorage_DocumentNew(ByVal doc As Document, ByVal FromTemplate As Boolean, _
                                           ByVal Template As String, ByVal IncludeGraphics As Boolean)
    MsgBox "检测到新文档被创建，文档名称：" & doc.title
End Sub

小结

本篇教程到此结束，更多关于文档对象（Document）的使用，请浏览博客其他文章。

---

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