FiveTech Support Forums

Amigos, utilizo a classe TWORD, e ela funciona muito bem, porém, em casos aleatórios ela causa um erro na abertura do documento. Minha pergunta é, como eu uso o comando, TRY...CATCH, para evitar a finalização do sistema por estes erros?

fonte:

static function fiancaWord(aCampos,camifo)

local x, cModelo:=CurDrive()+':\'+Curdir()+'\fiançamo.dot'

private oWord

oWord := TWord():New() // inicia o objeto OLE Word
if oWord:IsVisible()
oWord:Hide()
endif
oWord:OpenDoc( cModelo ) // abre o documento modelo
for x=1 to len( aCampos )
oWord:Replace( '['+aCampos[x,1]+']' , aCampos[x,2] )
next
oWord:Save(CAMIFO)
oWord:visualizar()
return(.t.)

Agradeço

Aoki

Pon así
Try
oWord := TWord():New() // inicia o objeto OLE Word
if oWord:IsVisible()
oWord:Hide()
endif
oWord:OpenDoc( cModelo ) // abre o documento modelo
for x=1 to len( aCampos )
oWord:Replace( '['+aCampos[x,1]+']' , aCampos[x,2] )
next
oWord:Save(CAMIFO)
oWord:visualizar()
Catch oErr
MsgStop( ¨imposible abrir. Error : ¨ + oErr : description )
end
return(.t.)

gracias Horacio...