Application.OpenDocument

Function OpenDocument(FileName As String) As Document

Member of Application

The OpenDocument method opens an existing document in CorelDRAW.

The following code example opens an existing CorelDRAW (CDR) document, adds a page to the document, creates a colored ellipse on the new page, and saves the entire document.

Sub DocumentOpen() 
 Dim doc As Document 
 Set doc = OpenDocument("C:\Flower.cdr") 
 With doc 
  .AddPages (1) 
  .ActiveLayer.CreateEllipse(0, 3, 5, 
1).Fill.UniformColor.CMYKAssign 0, 100, 100, 0 
  .Save 
 End With 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.