Page 1 of 1
Ayuda Urgente de Word
Posted: Sat Sep 21, 2019 9:20 pm
by 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.
Re: Ayuda Urgente de Word
Posted: Sat Sep 21, 2019 9:42 pm
by cnavarro
Re: Ayuda Urgente de Word
Posted: Sat Sep 21, 2019 10:23 pm
by 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
Re: Ayuda Urgente de Word
Posted: Sat Sep 21, 2019 11:05 pm
by 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"
Re: Ayuda Urgente de Word
Posted: Sun Sep 22, 2019 1:17 pm
by csincuir
Hola Antonio,
Te envío este ejemplo por si te sirve de guía:
Code: Select all
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
El cliente [nombrecliente] con estado civil [estadocivil] donde su direccion es [direccioncliente]
Saludos
Carlos
Re: Ayuda Urgente de Word
Posted: Sun Sep 22, 2019 4:38 pm
by 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.