oWordEvents=NEWOBJECT("WordEvents") local owrd as 'word.application' oWrd = NewObject('word.application') EVENTHANDLER(owrd,oWordEvents) owrd.Documents.Add owrd.visible = .t. owrd.Activate DEFINE CLASS WordEvents AS session OLEPUBLIC IMPLEMENTS ApplicationEvents2 IN ; "c:\program files\microsoft office\office\msword9.olb" * ... PROCEDURE ApplicationEvents2_DocumentBeforeSave(Doc AS VARIANT, ; SaveAsUI AS LOGICAL, Cancel AS LOGICAL) AS VOID * Your code here ENDPROC *... EnddefinePS: To create 'WordEvents' code :