¿que necesito para usar TWord?

[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.

[Antonio Linares]

Javier,

Parece que tienes una coma de más ó de menos en buildh.bat, a la hora de enlazar

Lo has modificado ?

[Antonio Linares]

Javier,

Prueba este código y dime que texto te muestra:

Code: Select all  Expand view

#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


[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

[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)

[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 view


...................
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 view

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]

[Antonio Linares]

Javier,

Tanto en el ordenador del cliente, como en el tuyo, sale "Word.Application.11" ?

[jfafive]

Si.

[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 )

[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

[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 ?

[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.

[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

[jfafive]

Hola MarioG,

Si quieres te la puedo pasar por email.

Saludos.

[MarioG]

quedo a la espera; muchas gracias