FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Tword con última versión de fwh y harbour
Frafive
Posts: 189
Joined: Wed Apr 05, 2006 09:48 PM
Tword con última versión de fwh y harbour
Posted: Wed Mar 22, 2017 06:33 PM

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
Posts: 189
Joined: Wed Apr 05, 2006 09:48 PM
Re: Tword con última versión de fwh y harbour ( Solucionado)
Posted: Sat Mar 25, 2017 05:47 PM
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 (fw): Select all Collapse
#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
Posts: 144
Joined: Thu Jan 02, 2014 01:49 PM
Re: Tword con última versión de fwh y harbour
Posted: Wed Mar 29, 2017 04:42 PM

Hola :

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

Saludos

xmanuel
Posts: 817
Joined: Sun Jun 15, 2008 07:47 PM
Re: Tword con última versión de fwh y harbour
Posted: Wed Mar 29, 2017 06:09 PM
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 (fw): Select all Collapse
...
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"
:-)
______________________________________________________________________________

Sevilla - Andalucía
ruben Dario
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Re: Tword con última versión de fwh y harbour
Posted: Wed Mar 29, 2017 11:37 PM
Vikthor.Thomas wrote: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
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
groiss
Posts: 234
Joined: Tue Sep 01, 2009 07:55 AM
Re: Tword con última versión de fwh y harbour
Posted: Thu Mar 30, 2017 05:20 AM

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
Posts: 189
Joined: Wed Apr 05, 2006 09:48 PM
Re: Tword con última versión de fwh y harbour
Posted: Fri Mar 31, 2017 04:33 PM

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

joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Tword con última versión de fwh y harbour
Posted: Fri Mar 31, 2017 07:32 PM

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

Dios no está muerto...



Gracias a mi Dios ante todo!
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Tword con última versión de fwh y harbour
Posted: Sun May 07, 2017 01:30 AM

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

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"
TOTOVIOTTI
Posts: 470
Joined: Fri Feb 05, 2010 11:30 AM
Re: Tword con última versión de fwh y harbour
Posted: Tue Nov 14, 2017 12:49 PM

Viktor
me podrías compartir la clase?

rjviotti arroba gmail punto com

Gracias y Saludos!!

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Tword con última versión de fwh y harbour
Posted: Tue Nov 14, 2017 01:00 PM

Hola

Me sumo

compuin@gmail.com

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

TOTOVIOTTI
Posts: 470
Joined: Fri Feb 05, 2010 11:30 AM
Re: Tword con última versión de fwh y harbour
Posted: Wed Nov 15, 2017 01:03 PM

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

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar
Marcelo Roggeri
Posts: 344
Joined: Sat Jul 22, 2006 09:04 PM
Re: Tword con última versión de fwh y harbour
Posted: Mon Mar 12, 2018 11:22 AM

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

FWH - Harbour - BCC7 - PellesC
oliveiros junior
Posts: 148
Joined: Tue Mar 20, 2007 03:13 PM
Re: Tword con última versión de fwh y harbour
Posted: Tue Mar 13, 2018 07:02 PM

Hola Viktor,

Me podrías compartir la clase?

Correo: oliveiros.jr@uol.com.br

Gracias y Saludos

Oliveiros Junior

jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Tword con última versión de fwh y harbour
Posted: Fri Mar 23, 2018 09:56 AM

Hola Viktor

Podrías compartir estas clases conmigo?

jmurugosa (arroba) gmail.com

Gracias desde ya.

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"
Static archive · New replies & topics via GitHub Discussions