Oops! Seems that part of the code sample didn't appear.

Here comes the rest of it:

 Add Object oleObject as OLEControl   with Top          =   1 , ;
                                           Left         =   4 , ;
                                           Height       = 240 , ;
                                           Width        = 775 , ;
                                           OleClass     = "Word.Document"    , ;
                                           DocumentFile = "C:\TEMP\TESTE.DOC", ;
                                           AutoSize     = .F.
                                           AutoActivate = 0

 Procedure cmdQuit.Click
*          ------- -----
           ThisForm.Release
 EndProc
 
 Procedure Activate
*          --------
 EndProc

 Procedure Init
*          ----
 EndProc

 Procedure QueryUnload
*          -----------
           This.cmdQuit.Click
           NoDefault
           Return .T.
 EndProc

EndDefine