lcGetFile = Getfile('DOC') oWordEvents=Newobject("WordEvents") Local owrd As 'word.application' owrd = Newobject('word.application') Eventhandler(owrd,oWordEvents) owrd.Documents.Open(lcGetFile) owrd.Visible = .T. owrd.Activate DEFINE CLASS WordEvents AS session OLEPUBLIC IMPLEMENTS ApplicationEvents2 IN "C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE10\MSWORD.OLB" PROCEDURE ApplicationEvents2_Quit() AS VOID ENDPROC PROCEDURE ApplicationEvents2_DocumentChange() AS VOID ENDPROC PROCEDURE ApplicationEvents2_DocumentOpen(Doc AS VARIANT) AS VOID ENDPROC PROCEDURE ApplicationEvents2_DocumentBeforeClose(Doc AS VARIANT, Cancel AS LOGICAL) AS VOID If !doc.Saved ? 'Doc has changed '+Ttoc(Datetime()) EndIf ENDPROC PROCEDURE ApplicationEvents2_DocumentBeforePrint(Doc AS VARIANT, Cancel AS LOGICAL) AS VOID ENDPROC PROCEDURE ApplicationEvents2_DocumentBeforeSave(Doc AS VARIANT, SaveAsUI AS LOGICAL, Cancel AS LOGICAL) AS VOID ENDPROC PROCEDURE ApplicationEvents2_NewDocument(Doc AS VARIANT) AS VOID ENDPROC PROCEDURE ApplicationEvents2_WindowActivate(Doc AS VARIANT, Wn AS VARIANT) AS VOID ENDPROC PROCEDURE ApplicationEvents2_WindowDeactivate(Doc AS VARIANT, Wn AS VARIANT) AS VOID ENDPROC PROCEDURE ApplicationEvents2_WindowSelectionChange(Sel AS VARIANT) AS VOID ENDPROC PROCEDURE ApplicationEvents2_WindowBeforeRightClick(Sel AS VARIANT, Cancel AS LOGICAL) AS VOID ENDPROC PROCEDURE ApplicationEvents2_WindowBeforeDoubleClick(Sel AS VARIANT, Cancel AS LOGICAL) AS VOID ENDPROC EndDefineCetin