LOCAL oerr as Exception *** Use GetObject to grab a reference to an existing *** instance of the server or create one if there is none TRY oWord = GETOBJECT( , 'Word.Application' ) CATCH TO oErr IF oErr.ErrorNo = 1426 oWord = CREATEOBJECT('Word.Application') ELSE THROW oErr ENDIF ENDTRYP.S. -- Hey, Michel, you need some new syntax coloring code. :-)