>I allow my users to use WORD via automation in one of my apps. I instantiate WORD, via oo = createobj("word.application"), and then make it visible to the user. The user has full access to all of WORD'S features. While the user is in WORD I loop, in a kind of wait state, so that WORD stays on the DeskTop until the user QUITS WORD. That works fine but yesterday someone revealed a problem. If the user opens a modal dialog while in WORD and stays in it for approx. 20 seconds, while I am looping, vfp has an error dialog waiting for you indicating that the automation server is busy. I guess that is really accurate. WORD is actually very busy in the modal dialog and can't take any commands at the moment. BUT, I am just looping within vfp and just want to know when the user QUITS WORD.
>
>ANY THOUGHTS??
>
>
>***
>It is something with how vfp and automation work. VFP thinks that the automation server is **BUSY** whenever a modal dialog is able to stay on the screen for approx. 20 seconds.
>Try this:
>
>** create WORD server
>oo = createobject("word.application")
>oo.visible = .t.
>** maximize WORD
>oo.windowstate = 1
>
>** When Word comes up on the DeskTop Try This:
>** click on TOOLS, CUSTOMIZE. Keep the Customize dialog on the screen for
>** 20 seconds. Minimize WORD and look at the error waiting for you in vfp.
>** In Fact, this will happen if you open any modal dialog in WORD and stick around for 20 seconds.
>** I have simulated this error directly from the Command Window. Simply type
>** oo = createobj("word.application") in the command window. Control WORD via the
>** oo reference. Activate a WORD modal dialog and then try to use the oo referencce
>** in the command window. You get the same error. ANY THOUGHTS??
>
>** create wait state to keep WORD on DeskTop
>** without this, the "do returnme" would fire before user closed word
>do while type("oo.displayrecentfiles")# "U" && works only in word 2000
> = inkey(.5)
>enddo
>do returnme
>messagebox("You closed WORD")
>oo = .null.
>release oo
>messagebox("Automation Reference Is Gone")
>
>procedure returnme
>messagebox("You are in Procedure: Returnme")
>
>Thanx
>Dr. G. (Neil)