En mi proyecto, tengo una opción para poder hacer mailing por cartas y para ello se combina el clientes.DBF con un WORD, mediante la clase TWord
El código es el siguiente:
- Code: Select all Expand view
- do while .not. eof()
if clientes->seleccion=.t.
copyfile(alltrim(mailing->modelo),camino+'\modelos\temporal.doc',.f.)
oWord:= TWord():New()
oWord:openDoc(camino+'\modelos\temporal.doc')
oWord:Replace( '<NOMBRE>' , alltrim(CLIENTES->NOMBRE) )
oWord:Replace( '<DIRECCION>' , alltrim(CLIENTES->DIRECCION) )
oWord:Replace( '<POBLACION>' , alltrim(CLIENTES->POBLACION) )
oWord:Replace( '<CP>' , alltrim(str(CLIENTES->CP)) )
oWord:Replace( '<PROVINCIA>' , alltrim(CLIENTES->POBLACION) )
oword:endpage()
oWord:printDoc()
oWord:end(.f.)
endif
if sel>15 && si los clientes seleccionados son más de 15
inkey(4) && hay que hacer tiempo para no colapsar la memoria de la impresora
endif
skip
enddo
Lo hace correctamente, pero el efecto en pantalla NO es el deseado porque abre y cierra el WORD tantas veces como clientes tiene la DBF.
¿Como lo haceis vosotros?
He leido algo por ahí sobre mailmerge (envio de correspondencia) e incluso que la clase viene con ejemplos en Utilidades: http://hyperupload.com/download/018763bc84/Tword.zip.html Pero es imposible descargarselo.
¿Alguien tiene algún ejemplo utilizanzo mailmerge?
Mil gracias.
LORENZO