>>>I have a Word 97 (Word.application) object that I have programatically created which opens a file in Word97. How can I have VFP keep running in a loop until the user closes/exits Word97.
>>>
>>>In other words, how can I tell when the Word97 object no longer exists.
>>
>>Hi John,
>>
>>Following function gives information of current Word instance
>>
>>GETOBJECT("", 'word.basic') returns object data type which can be stored in some global method to determine existance of Word Application
>>
>>Get back to me if you still need more information
>>
>>bye
>>jayesh
>Hi Jayesh,
>I couldn't understand how I could use getobject() to check if the app is exited or not. Could you show it in following example ?
>
>oWord = createobject("word.basic")
>with oWord
> .appshow
> cDSN = "DSN=Visual FoxPro Tables;UID=;PWD=;"
> cSourceDb = "SourceDB=C:\Program Files\vfp50\SAMPLES\DATA\Testdata.dbc"
> cSourceType = ";SourceType=DBC;"
> cOther = "Exclusive=No;BackgroundFetch=No;Collate=Machine;"
> cSQLStatement = "SELECT company, contact FROM customer"
> .InsertDatabase(35,511,0, ;
> cDSN+cSourceDb+cSourceType+cOther, ;
> cSQLStatement,,,,,,,1)
>endwith
>* Here I want to check if user exited word
>
>Cetin
Besides chcking for Word App Window (api FindWindow), you can also simply issue oWord.Visible=.t. wrapped into error trap. If Word is quited you trap the error. I test it for Excel only, but don't think that Word is much different.
Edward Pikman
Independent Consultant