TWORD, evitando possiveis erros na abertura !

TWORD, evitando possiveis erros na abertura !

Postby AOKISANTOS » Thu Jun 14, 2007 6:22 pm

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
FWH25+XHARBOUR 99.50
AOKISANTOS
 
Posts: 210
Joined: Sun Jul 23, 2006 1:15 am

Postby horacio » Thu Jun 14, 2007 8:09 pm

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.)
horacio
 
Posts: 1363
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

gracias horacio

Postby AOKISANTOS » Thu Jun 14, 2007 8:18 pm

gracias Horacio...

:D
FWH25+XHARBOUR 99.50
AOKISANTOS
 
Posts: 210
Joined: Sun Jul 23, 2006 1:15 am


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 30 guests