When a CREATEOBJECT() is executed to automate MS-Word it raises and error. How can I check before hand if MS-Word (better if I can find out if the version is 2000 or above) exists at all. I would like to disable a menu option before hand based on this fact.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
