oWord = CREATEOBJECT("Word.application") DO CASE CASE oWord.Version = "8.0" oWordEvents=NEWOBJECT("WordEvents8") CASE oWord.Version = "9.0" oWordEvents=NEWOBJECT("WordEvents9") CASE oWord.Version = "10.0" oWordEvents=NEWOBJECT("WordEvents10") ... ENDCASE EVENTHANDLER(owrd,oWordEvents) oWord.Documents.Add oWord.visible = .t. oWord.ActivateGood Luck
>>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 >> >>*... >>Enddefine >>>>PS: To create 'WordEvents' code :