Tword con última versión de fwh y harbour

Tword con última versión de fwh y harbour

Postby Frafive » Wed Mar 22, 2017 6: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 9:48 pm

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

Postby Frafive » Sat Mar 25, 2017 5: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: Select all  Expand view

#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

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

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

Postby Vikthor.Thomas » Wed Mar 29, 2017 4:42 pm

Hola :

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

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

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

Postby xmanuel » Wed Mar 29, 2017 6: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: Select all  Expand view

...
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
xmanuel
 
Posts: 756
Joined: Sun Jun 15, 2008 7:47 pm
Location: Sevilla

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

Postby ruben Dario » 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
User avatar
ruben Dario
 
Posts: 1061
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia

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

Postby groiss » Thu Mar 30, 2017 5: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
groiss
 
Posts: 217
Joined: Tue Sep 01, 2009 7:55 am
Location: Plasencia - ESPAÑA

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

Postby Frafive » Fri Mar 31, 2017 4:33 pm

Vikthor, me podrias enviar la clase a jgabri gmail.com
Saludos,
Gabriel
Frafive
 
Posts: 189
Joined: Wed Apr 05, 2006 9:48 pm

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

Postby joseluisysturiz » Fri Mar 31, 2017 7: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!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

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

Postby jose_murugosa » Sun May 07, 2017 1:30 am

Viktor, +1 jmurugosa (arroba) gmail (punto) com
Saludos/Regards,
José Murugosa
FWH + Harbour + Bcc7. Una seda!
User avatar
jose_murugosa
 
Posts: 1134
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay

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

Postby TOTOVIOTTI » 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.edu.ar
User avatar
TOTOVIOTTI
 
Posts: 387
Joined: Fri Feb 05, 2010 11:30 am
Location: San Francisco - Córdoba - Argentina

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

Postby Compuin » Tue Nov 14, 2017 1:00 pm

FWH 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Compuin
 
Posts: 1213
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada

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

Postby TOTOVIOTTI » Wed Nov 15, 2017 1:03 pm

Amigos...
alguien que la pueda compartir...
Mil gracias!!
Roberto
Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.edu.ar
User avatar
TOTOVIOTTI
 
Posts: 387
Joined: Fri Feb 05, 2010 11:30 am
Location: San Francisco - Córdoba - Argentina

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

Postby Marcelo Roggeri » 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
User avatar
Marcelo Roggeri
 
Posts: 325
Joined: Sat Jul 22, 2006 9:04 pm
Location: Venado Tuerto - Santa Fe -Argentina

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

Postby oliveiros junior » Tue Mar 13, 2018 7:02 pm

Hola Viktor,

Me podrías compartir la clase?

Correo: oliveiros.jr@uol.com.br

Gracias y Saludos

Oliveiros Junior
oliveiros junior
 
Posts: 122
Joined: Tue Mar 20, 2007 3:13 pm

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

Postby jose_murugosa » Fri Mar 23, 2018 9:56 am

Hola Viktor

Podrías compartir estas clases conmigo?

jmurugosa (arroba) gmail.com

Gracias desde ya.
Saludos/Regards,
José Murugosa
FWH + Harbour + Bcc7. Una seda!
User avatar
jose_murugosa
 
Posts: 1134
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay

Next

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 15 guests