Document(文件)物件的建立及文件回撥事件
阿新 • • 發佈:2019-01-28
目的
這篇教程將教會你使用 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)的使用,請瀏覽部落格其他文章。