Hi Cetin,

You are always there when I need you. Thanx again. You are very close. I was able to place vfp code after your stuff which did not cause Word to minimize. That is a good thing. However, when I exited Word, vfp would not repsond to mouse clicks. In fact, the mouse pointer assumed the hourglass configuration and I had to ctrl-alt-del to ger out of vfp. Please review your code and advise me.

P.S. Also try this. Populate the form's de with a table. Upon returning from Word please make certian you can still acess the table in vfp code ie: try to replace cname with "Neil".

>>Hi Out there,
>>
>>I use Word97 as an automation server by coding the following in the click event of a command button.
>>
>>oWord = CreateObject("Word.Application")
>>with oWord
>> .Windowstate=0 &&
>> .visible = .t.
>> .document(add)
>>endwith
>>
>>
>>Word opens, a new dociment is dosplayed and Word remains open and in WINDOWSTATE=0 until I hit the close button. That is the functionality I want. However, if I place the simplest command after the endwith line, ie: messagebox('HI'), Word minimizes and that line of code executes. I don't want that line of code to execute until I close Word.
>>
>>How do you do it?
>>
>>Thanx Neil
>>dadigidoc@aol.com
>
>

---

Hi Neil,
>

If type("gHwndWord") = "U"
>  Public gHwndWord
>Endif
>
>Declare integer GetForegroundWindow in WIN32API
>Declare short IsWindow in WIN32API integer
>
>********************
>* Create word object
>********************
>If type("oWordDocument") = "O" ;
>    and type("gHwndWord") = "N" ;
>    and IsWindow(gHwndWord) # 0 && Check if word window is alive
>  oWordDocument=getobject(, "Word.application")	&& get instance
>Else
>  oWordDocument=createobject("word.application") && Create word object
>Endif
>********************
>* Create word object
>********************
>
>With oWordDocument
>*...
>Endwith
>
>gHwndWord = GetForegroundWindow() && Save word window handle
>Do while IsWindow(gHwndWord) # 0  && Wait while Word is alive
>Enddo
>Clear dlls
>oWordDocument=.Null.

Cetin