Local oWord as word.application , cDoc as Character cDoc= ADDBS(SYS(5)+SYS(2003))+ALLTRIM(thisform.business.data.fpath) oWord=Createobject("word.application") && Create word object oWord.documents.Open(cDoc) oWord.Visible=.t. SET ESCAPE ON DO WHILE VARTYPE(oWord)="O" _vfp.Visible=.F. ON ESCAPE exit WAIT WINDOW TIMEOUT 2 VARTYPE(oWord) ENDDO _vfp.Visible=.t.the type of oWord does not change after I exit word