Duda con uso de TOLE para Word

Duda con uso de TOLE para Word

Postby jfafive » Mon Jun 02, 2008 8:30 am

Hola,

Cuando abro un documento word,
Code: Select all  Expand view
oWord:Documents:Open( cFile )


Funciona bien, excepto si el fichero esta corrupto, en ese caso, la aplicación se rompe con una ventana de error.

¿se puede controlar para que si intenta abrir el fichero y no puede, lo ignore o haga la acción asignada?

He buscado, pero no he podido encontrar una lista de datos y metodos para TOLEAUTO con Word.

¿alguien sabe?
jfafive
 
Posts: 396
Joined: Tue Mar 18, 2008 9:41 pm
Location: Marbella

Postby Antonio Linares » Mon Jun 02, 2008 9:31 pm

Javier,

Prueba con TRY y CATCH:
Code: Select all  Expand view
TRY
   oWord:Documents:Open( cFile )
CATCH
   MsgAlert( "fichero corrupto" )
END

Si usas Harbour tienes que anadir estas lineas al inicio del PRG:
Code: Select all  Expand view
#ifndef __XHARBOUR__
   #xcommand TRY              => bError := errorBlock( {|oErr| break( oErr ) } ) ;;
                                 BEGIN SEQUENCE
   #xcommand CATCH [<!oErr!>] => errorBlock( bError ) ;;
                                 RECOVER [USING <oErr>] <-oErr-> ;;
                                 errorBlock( bError )
#endif

y declarar una variable estatica bError
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41410
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby jfafive » Tue Jun 03, 2008 11:20 am

Gracias Master, :lol:

Por cierto, he visto que puedo buscar una palabra a lo bestia, es decir, usando memoread() para encontrarla en ficheros word, xls,

¿es fiable este metodo?
jfafive
 
Posts: 396
Joined: Tue Mar 18, 2008 9:41 pm
Location: Marbella

Postby ADBLANCO » Tue Jun 03, 2008 6:56 pm

Yo lo uso (a lo bestia) y me trabaja muy bién
Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
User avatar
ADBLANCO
 
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: antolin and 36 guests