Tword con última versión de fwh y harbour

[Frafive]

Hola amigos

Con la clase tword quiero hacer esto: oWord:Replace("[Nombre]" ,"Paco Perez") con el borland 5.2 y el fwh12.07 funciona perfectamente, pero al actualizar a la nueva versión de fwh me da el siguiente error:

Error: (DOS Error -2147352572) WINOLE/1007 Error de argumento: SET
Args:
[ 1] = C Text
[ 2] = C [Nombre]

Stack Calls
===========
Called from TOLEAUTO:SET(0)
Called from TWORD:Replace(527)
Called from OPENWORD(2765)

Alguien tiene funcionando la tword con las útimas versiones de fwh y harbour ?

Un saludo
Gabriel

[Frafive]

Hola Amigos,

Ya que la clase tword no funciona, he creado una pequeña clase, con estos metodos puedo hacer lo que necesito.

Saludos,
Gabriel

Code: Select all  Expand view  RUN

#include "FiveWin.Ch"

      CLASS TWord
      DATA  oWord
      DATA  oDoc


      METHOD New()
      METHOD OpenDoc( cNombreDoc )
      METHOD Replace()
      METHOD SaveDocumento()
      METHOD Visible  INLINE ::oWord:Visible := .t.

      ENDCLASS




 METHOD   NEW()  CLASS TWord
  IF ( ::oWord := win_oleCreateObject( "Word.Application" ) )= NIL
   Msgstop(" Error al conectar con Word")
   return
  ENDIF

RETURN( Self )




METHOD OpenDoc( cNombreDoc )  CLASS TWord


 ::oDoc:=::oWord:Documents:open(cNombreDoc)



RETURN Nil


METHOD SaveDocumento(cNombreDoc) CLASS TWord

 ::oDoc:saveAs(cNombreDoc)

Return nil



METHOD Replace(cSrc, cRpl)   CLASS TWord
local oSel:= ::oWord:Selection


oSel:Start = 0
oSel:End = -1

WHILE oSel:Find:Execute( cSrc )
     oSel:Range:Text = cRpl
ENDDO

Return

 

[Vikthor.Thomas]

Hola :

Tengo la clase tword y tExcelSript funcionando para FWH64 + BCC7.1 y Harbour
A qué correo te las mando ?

Saludos

[xmanuel]

Para mejorar un poquito el código te diré que el método new debería devolver siempre self y te recomiendo que para comparar uses "==" en vez de "=" ya que este último está sobrecargado y puede que algún día te de problemas.
Yo cambiaria a esto:

Code: Select all  Expand view  RUN

...
DATA lConnected INIT .f.
...

 METHOD   NEW()  CLASS TWord
  ::oWord := win_oleCreateObject( "Word.Application" )
  ::lConnected := ( ::Word != nil )
RETURN( Self )

// Luego en tu programa podria hacer:
...
oWObj := TWord():new()
if !oWObj:lConnected
 Msgstop(" Error al conectar con Word")
else
...
endif
...
 

Con esto consigues desacoplar el código de la salida por pantalla, o sea como se dice en OOP, consigues u "desacople"

[ruben Dario]

Hola :

Tengo la clase tword y tExcelSript funcionando para FWH64 + BCC7.1 y Harbour
A qué correo te las mando ?

Saludos

Saludos
Me podrias facilitar las dos clases clase tword y tExcelSript Gracias de antemano, te adjunto mi Email

[groiss]

Ruben:
Si no te importa podrías enviar las clases a Antonio para que las suba y las haga accesibles a todos.
Muchas gracias.
Un saludo

[Frafive]

Vikthor, me podrias enviar la clase a jgabri gmail.com
Saludos,
Gabriel

[joseluisysturiz]

Me sumo a la solicitud de la CLASE d WORD... joseluisysturiz at yahoo.com ...gracias...

[jose_murugosa]

Viktor, +1 jmurugosa (arroba) gmail (punto) com

[TOTOVIOTTI]

Viktor
me podrías compartir la clase?

rjviotti arroba gmail punto com

Gracias y Saludos!!

[Compuin]

Hola

Me sumo

compuin@gmail.com

[TOTOVIOTTI]

Amigos...
alguien que la pueda compartir...
Mil gracias!!
Roberto

[Marcelo Roggeri]

Hola buenos dias, Viktor, me podrías compartir la clase?
correo: roggerimarcelo arroba gmail punto com
Gracias y Saludos

[oliveiros junior]

Hola Viktor,

Me podrías compartir la clase?

Correo: oliveiros.jr@uol.com.br

Gracias y Saludos

Oliveiros Junior

[jose_murugosa]

Hola Viktor

Podrías compartir estas clases conmigo?

jmurugosa (arroba) gmail.com

Gracias desde ya.