Tword con última versión de fwh y harbour

Frafive
Posts: 189
Joined: Wed Apr 05, 2006 9:48 pm

Tword con última versión de fwh y harbour

Post by 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
Posts: 189
Joined: Wed Apr 05, 2006 9:48 pm

Re: Tword con última versión de fwh y harbour ( Solucionado)

Post by 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

#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

 
User avatar
Vikthor.Thomas
Posts: 144
Joined: Thu Jan 02, 2014 1:49 pm

Re: Tword con última versión de fwh y harbour

Post by Vikthor.Thomas »

Hola :

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

Saludos
xmanuel
Posts: 613
Joined: Sun Jun 15, 2008 7:47 pm
Location: Sevilla
Contact:

Re: Tword con última versión de fwh y harbour

Post by 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

...
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"
:roll:
______________________________________________________________________________
Sevilla - Andalucía
User avatar
ruben Dario
Posts: 986
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia

Re: Tword con última versión de fwh y harbour

Post by ruben Dario »

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: 206
Joined: Tue Sep 01, 2009 7:55 am
Location: Plasencia - ESPAÑA

Re: Tword con última versión de fwh y harbour

Post by 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
Posts: 189
Joined: Wed Apr 05, 2006 9:48 pm

Re: Tword con última versión de fwh y harbour

Post by Frafive »

Vikthor, me podrias enviar la clase a jgabri gmail.com
Saludos,
Gabriel
User avatar
joseluisysturiz
Posts: 2024
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela
Contact:

Re: Tword con última versión de fwh y harbour

Post by joseluisysturiz »

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!
User avatar
jose_murugosa
Posts: 943
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay
Contact:

Re: Tword con última versión de fwh y harbour

Post by jose_murugosa »

Viktor, +1 jmurugosa (arroba) gmail (punto) com
Saludos/Regards,
José Murugosa
FWH + Harbour + Bcc7. Una seda!
User avatar
TOTOVIOTTI
Posts: 334
Joined: Fri Feb 05, 2010 11:30 am
Location: San Francisco - Córdoba - Argentina

Re: Tword con última versión de fwh y harbour

Post by TOTOVIOTTI »

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.edu.ar
Compuin
Posts: 1017
Joined: Tue Dec 28, 2010 1:29 pm

Re: Tword con última versión de fwh y harbour

Post by Compuin »

Hola

Me sumo

compuin@gmail.com
User avatar
TOTOVIOTTI
Posts: 334
Joined: Fri Feb 05, 2010 11:30 am
Location: San Francisco - Córdoba - Argentina

Re: Tword con última versión de fwh y harbour

Post by TOTOVIOTTI »

Amigos...
alguien que la pueda compartir...
Mil gracias!!
Roberto
Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.edu.ar
User avatar
Marcelo Roggeri
Posts: 275
Joined: Sat Jul 22, 2006 9:04 pm
Location: Venado Tuerto - Santa Fe -Argentina
Contact:

Re: Tword con última versión de fwh y harbour

Post by Marcelo Roggeri »

Hola buenos dias, Viktor, me podrías compartir la clase?
correo: roggerimarcelo arroba gmail punto com
Gracias y Saludos
FWH - Harbour - BCC7 - PellesC - FivEdit (Cristobal Navarro)
oliveiros junior
Posts: 84
Joined: Tue Mar 20, 2007 3:13 pm

Re: Tword con última versión de fwh y harbour

Post by oliveiros junior »

Hola Viktor,

Me podrías compartir la clase?

Correo: oliveiros.jr@uol.com.br

Gracias y Saludos

Oliveiros Junior
User avatar
jose_murugosa
Posts: 943
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay
Contact:

Re: Tword con última versión de fwh y harbour

Post by jose_murugosa »

Hola Viktor

Podrías compartir estas clases conmigo?

jmurugosa (arroba) gmail.com

Gracias desde ya.
Saludos/Regards,
José Murugosa
FWH + Harbour + Bcc7. Una seda!
Post Reply