FoxPro/Visual FoxPro - MUY URGENTE-Combinar correspondencia en WORD2003!!

 
Vista:

MUY URGENTE-Combinar correspondencia en WORD2003!!

Publicado por MARINA (2 intervenciones) el 27/05/2005 17:37:29
Tengo un problema: Hasta ahora combinaba correspondencia con word creando un archivo de texto con los datos a combinar incluyendo msword.h y usando este código:

On Error oleapp=.Null.
oleapp= Getobject(, "WORD.application")

If Isnull(oleapp)
oleapp = Createobject("WORD.Application")
Endif

With oleapp
.Documents.Open ("c:\documento.doc")
.Visible=.T.
Endwith

Hasta ahora no tenía problemas, pero con WORD2003 este código no funciona... aparece la plantilla sin combinar y sin conexión con el origen de datos. Si busco el origen de datos y selecciono los delimitadores de campo y de registro me lo combina, pero cuando vuelvo a abrir el documento me vuelve a pasar lo mismo...

Después de muchas vueltas, logré hacerlo funcionar utilizando la clase mailmrge y combinando a través de una tabla de visual fox, pero sólo funciona si es Windows 2000 o server, si es XP me da error:

"Código de excepción OLE Dispatch de Microsoft Word - Word no pudo abrir el origen de datos"

No sé si es problema del odbc de visual fox, de la clase... Menudo marrón.

Os pongo el código que utilizo por si sirve de algo:

Select TABLAW

mailmerge1 = Newobject('mailmerge','mailmrg2.vcx')

With mailmerge1
.cAppTitle = "Axon"
.nNewDoc = 2
.cAlias = Alias()
.nTemplate = 1
.cDBCTable = Dbf()
.cDBCName = Dbc()
.cdocname= nomdocu
.MakeOutput()
Endwith

Espero que podáis ayudarme pq estoy ya al borde de la depresión!!! Gracias... :-)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder