>>LOCAL llOK, loApp, lcHandler, loErr, lcMsg >>llOK = .T. >>TRY >> loApp = CREATEOBJECT( [Word.Application] ) >>CATCH >> TEXT TO lcMsg TEXTMERGE NOSHOW PRETEXT 3 >> It seems that Word is not installed on the computer. >> You must have Word installed to continue. >> ENDTEXT >> MESSAGEBOX( lcMsg, 64 ) >> llOK = .F. >>ENDTRY >>IF llOK >> IF INLIST( ALLTRIM( loApp.version ), [9.0], [10.0], [11.0] ) >> ELSE >> TEXT TO lcMsg TEXTMERGE NOSHOW PRETEXT 3 >> You must have either at least Word 2000 installed >> to continue. >> ENDTEXT >> MESSAGEBOX( lcMsg, 64, [T. K. Plastics] ) >> llOK = .F. >> loApp.quit() >> ENDIF >>ENDIF >> >>RETURN llOK >>