FUNCTION LoadWord LOCAL liVersion as Integer, lcMsg as String liVersion = 0 IF !PEMSTATUS(_screen,[oWord],5) _screen.AddProperty([oWord]) ENDIF TRY _screen.oWord = CREATEOBJECT([Word.Application]) CATCH TEXT TO lcMsg TEXTMERGE NOSHOW PRETEXT 3 It seems, there is no MS WORD installed on your system. This App is needed to continue with the functionallity you just wanted to use. ENDTEXT MESSAGEBOX(lcMsg,0+64+0,[Info]) ENDTRY IF VARTYPE(_screen.oWord) = [O] WITH _screen.oWord IF INLIST(ALLTRIM(.version), [9.0], [10.0], [11.0], [12.0]) liVersion = INT(VAL(.Version) ELSE TEXT TO lcMsg TEXTMERGE NOSHOW PRETEXT 3 Please install a hight Version of MS WORD (9+) Otherwise, this feature is not available. ENDTEXT MESSAGEBOX(lcMsg,0+64+0,[Info]) .Quit() ENDIF ENDWITH ENDIF RETURN liVersion ENDFUNC