Corel Draw 9 Active Document

Hi! On this:

Dim doc As Document
--------------------------------------------
Set doc = CorelDRAW.ActiveDocument

I get :
Run-time error '-2147467259 (80004005)'
There is no active document.

Whats wrong?
Thanks

[Alex]

Check your task manager and make sure another copy of CorelDRAW is not running in the backgound. It seems that your program connects to the wrong instance of CorelDRAW.

Shut down all CorelDRAW instances, then start one manually and create a document. It should work now.

Earlier versions did not always shot down properly after using certain VBA features, so you should check your task list often...

Let me know how it goes.

Thanks for your message
I try use this, but still get message I wrote
Maybe I wrong declare reference on Active Document
If I use

AppActivate "CorelDraw9"

and them

Set doc = CorelDraw.ActiveDocument
doc.Unit = cdrMillimeter
lngGetUserClick = CorelDraw.CorelScript.GetUserClick(lngXCoord, lngYCoord, lngTimeOut, -1)
blnSelectObjectAtPoint = CorelDraw.CorelScript.SelectObjectAtPoint(lngXCoord, lngYCoord, 0)

looks like a have a error. But where?