Application.CreateDocument

Function CreateDocument() As Document

Member of Application

The CreateDocument method creates a new CorelDRAW document.

The following code example creates a new CorelDRAW document, adds a colored ellipse to the active layer of the document, and saves the new document with a new name.

Sub DocumentCreate() 
 Dim doc As Document 
 Set doc = CreateDocument() 
 doc.ActiveLayer.CreateEllipse (0, 3, 5, 
1).Fill.UniformColor.CMYKAssign 0, 100, 100, 0 
 doc.SaveAs "C:\My New Document" 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.