目的

這篇教程將教會你使用 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）的使用，請瀏覽部落格其他文章。