Documents(1).Activate ActiveDocument.AddPages 1
Documents(1).AddPages 1
Sub DocumentActive() CreateDocument ActiveLayer.CreateEllipse2 3, 2, 1 CreateDocument ActiveLayer.CreateRectangle 2, 3, 4, 5 Documents(1).Activate ActiveDocument.AddPages 1End Sub