Ayuda Urgente de Word

[remtec]

Hola Amigos.

Por Favor Necesito lo Siguiente:

Tengo una Plantilla Word, en la cual debo reemplazar algunas Variables, luego guardar en una carpeta de e Imprimir.
Ej.
Plantilla " Examen de Altura.Doc "
Variables: Nombres, Apellidos, Rut, Var4, Var5, Var6.
Actualizar Datos en Nuevo Word.
Imprimir Automaticamente Nuevo Word.

Quedo Atento a sus comentarios.

Muchos Saludos

Antonio.

[cnavarro]

Mira aqui
viewtopic.php?f=6&t=31518&p=183397&hilit=reemplazar+en+documento+word#p183361

[remtec]

Hola CNavarro

Muchas gracias por responder.

Ya habia visto lo que me recomiendas, lo que entiendo de este link es que deberia usar la clase Tword, lo que buscaba era usar directamente el Word de Office.

Muchos Saludos.

Antonio

[cnavarro]

Ok, tendrás que crear un objeto "Word.Application", y una vez abierto el documento, sigue más o menos el esquema que te indica aqui

https://docs.microsoft.com/es-es/office ... formatting

También tienes la opción de crear los documentos en formato .rtf ( que también pueden ser abiertos por Word con la ventaja de que los puedes editar con nuestra clas TRichEdit ), y realizar esta tarea en ellos. Sobre este tema busca en el foro "word merge"

[csincuir]

Hola Antonio,
Te envío este ejemplo por si te sirve de guía:

Code: Select all  Expand view

cFile := "C:\hojas\hoja1.doc"
oWord := TWord():New()
oWord:OpenDoc( cFile )

cTxt := "Nombre del Cliente"
oWord:Replace("[nombrecliente]",cTxt)
cTxt := "Soltero"
oWord:Replace("[estadocivil]",cTxt)
cTxt := "Direcion del Cliente"
oWord:Replace("[direccioncliente]",cTxt)

oWord:PrintDoc()
oWord:End( .f. ) 

Y en el documento Word "hoja1.doc" deberías de colocar las etiquetas a reemplazar dentro del texto del mismo

Code: Select all  Expand view

El cliente [nombrecliente] con estado civil [estadocivil] donde su direccion es [direccioncliente]

Saludos

Carlos

[remtec]

Hola Carlos y CNavarra

Muchas gracias por su ayuda.

Tratare de aplicar lo que me indica Carlos, lo veo mas facil, una ves probado les comentare.

Muy agradecido por su ayuda.

Muchos Saludos

Antonio.