Page 2 of 3
Posted: Sun May 11, 2008 7:21 pm
by jfafive
Hola de nuevo Antonio,
He vuelto a inhabilitar la llamada a SEARCH_TAB desde el codigo fuente de TWordHB.prg y lo he pasado de .OBJ a .LIB para poder enlazarlo.
En fin, el hecho es que he conseguido que el ejemplo sample1.prg, funcione y ahora pacere que esta trabajando bien. Aunque de momento solo he hecho para que abra un documento en word y haga un preview.
Saludos.
Posted: Sun May 11, 2008 8:30 pm
by Antonio Linares
Javier,
Parece que tienes una coma de más ó de menos en buildh.bat, a la hora de enlazar
Lo has modificado ?
Posted: Sun May 11, 2008 8:47 pm
by Antonio Linares
Javier,
Prueba este código y dime que texto te muestra:
Code: Select all | Expand
#include "FiveWin.ch"
function Main()
local cString := "No encontrado"
if IsActivex( "Word.Application.8" )
cString := "Word.Application.8"
endif
if IsActivex( "Word.Application.9" )
cString := "Word.Application.9"
endif
if IsActivex( "Word.Application.10" )
cString := "Word.Application.10"
endif
if IsActivex( "Word.Application.11" )
cString := "Word.Application.11"
endif
if IsActivex( "Word.Application.12" )
cString := "Word.Application.12"
endif
MsgInfo( cString )
return nil
Posted: Mon May 12, 2008 7:08 am
by jfafive
Hola Antonio,
Ye he arreglado lo de la coma y estoy enlazando bien.
Parece que mi prueba de ayer funcionó bien en mi ordenador de casa.
Pero en el ordenador del cliente (el que tiene Word 2003, la version estudiante, que te comenté) sigue dando fallo el ejecutable.
De cualquier modo, he probado el codigo que me acabas de mandar en el ordenador del cliente y me devuelve el siguiente mensaje:
Word.Application.11
Posted: Mon May 12, 2008 8:34 am
by jfafive
Por cierto, que la version del word que tengo en mi ordenador, es la misma o al menos asi lo indica el numero:
Word 2003 (11.6568.6568) SP2.
En lo unico que cambia, es en que el texto que sale bajo el numero de version, dice Professional Edition (en este funciona bien la prueba)
Mientras que en el de el cliente, cuyo numero de version es el mismo, dice:
Student edition (donde no funciona la prueba)
Posted: Mon May 12, 2008 9:45 pm
by jfafive
Hola Antonio,
Sigo desarrollando mi aplicacion con TWord en mi ordenador. Aunque todavia no se porque no funciona en el del cliente.
¿diferencia entre version de word para estudiantes y profesional?
En cualquier caso no puedo estar parado y me ha salido una nueva duda.
Para generar un tabla en word, hago lo siguiente:
Code: Select all | Expand
...................
local aDatos := { { "Nombre" , "pepe" }
{ "Dirección" , "loma alta" }
{ "A la Atención de", "Margarita" } }
...........
oWord:AddTables( aDatos, 10 )
..................
Me genera la tabla, pero me causa un error en la aplicacion:
Code: Select all | Expand
Application
===========
Path and name: C:\FWH\G\DBF\G.EXE (32 bits)
Size: 1,536,000 bytes
Time from start: 0 hours 0 mins 3 secs
Error occurred at: 12-05-08, 23:43:26
Error description: Error 1527852/9 'Item' no es ninguna propiedad.: ITEM
Args:
[ 1] = N 3
Stack Calls
===========
Called from: => TOLEAUTO:ITEM(0)
Called from: => TWORD:ADDTABLES(1141)
Called from: .\gpw.PRG => FGENPRESUWORD(0)
Called from: .\genpresu.PRG => (b)FGENPRESU(0)
Called from: => TBUTTON:CLICK(0)
Called from: => TBUTTON:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => SENDMESSAGE(0)
Called from: => TDIALOG:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => TDIALOG:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => DIALOGBOX(0)
Called from: => TDIALOG:ACTIVATE(0)
Called from: .\genpresu.PRG => FGENPRESU(0)
Called from: .\g.PRG => (b)MAIN(0)
Called from: => TBTNBMP:CLICK(0)
Called from: => TBTNBMP:LBUTTONUP(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => TCONTROL:HANDLEEVENT(0)
Called from: => TBTNBMP:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: => TWINDOW:ACTIVATE(0)
Called from: .\g.PRG => MAIN(0)
He buscado algun ejemplo de como se usa oWord:AddTables( aDatos, 0 )
pero no lo encuentro. Yo creo que no creo bien la tabla, ¿podrias pasarme algun ejemplo?[/code]
Posted: Mon May 12, 2008 11:29 pm
by Antonio Linares
Javier,
Tanto en el ordenador del cliente, como en el tuyo, sale "Word.Application.11" ?
Posted: Tue May 13, 2008 6:24 am
by jfafive
Si.
Posted: Tue May 13, 2008 7:10 am
by jfafive
Antonio,
No te preocupes, al final le he cambiado el word 2003 student por una version anterior, el word 2002.
Y parece que va bien.
Sigo buscando un ejemplo de uso para el metodo:
oWord:AddTables( aDatos, 10 )
Posted: Tue May 13, 2008 7:58 am
by jfafive
Antonio,
Puedo crear una tabla en word, pero rompe el ejecutable con un fallo que dice que no reconoce Item como propiedad.
Falla en la linea 1141 de TWordhb.prg
oCol:=oTable:Columns:Item(3)
Sin envargo, he visto en el explorador de objetos de word, que si exsite Item()
Word.Columns.Item( index As Long )Default member of Word.Columns
Posted: Tue May 13, 2008 9:46 am
by Antonio Linares
Javier,
Fijate que en esta declaración:
Word.Columns.Item( index As Long )Default member of Word.Columns
Columns es un dato de Word. Y en este código:
oTable:Columns:Item(3)
Columns es un dato de oTable. Es oTable un objeto Word ?
Posted: Tue May 13, 2008 2:42 pm
by jfafive
Bueno, creo que ejemplo anterior esta mal.
He visto en el examinador de bjetos que Table es una Clase de word que tiene la propiedad Columns.
De cualquier modo, estoy intentando obtener documentación sobre lo que haen los metodos de word. Voy a ver si puedo añadir metodos nuevos a TWordHB.prg
Saludos.
Posted: Tue Dec 16, 2008 12:50 am
by MarioG
Hola gente;
Quisiera saber de donde bajar TWord. De los enlaces que hay en este hilo varios dan error. supongo que están caducos.
gracias
Posted: Tue Dec 16, 2008 2:42 pm
by jfafive
Hola MarioG,
Si quieres te la puedo pasar por email.
Saludos.
Posted: Tue Dec 16, 2008 6:54 pm
by MarioG
quedo a la espera; muchas gracias