FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Ayuda Urgente de Word
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Ayuda Urgente de Word
Posted: Sat Sep 21, 2019 09:20 PM

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.

FWH 22.10 - HARBOUR - PELLES C
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Ayuda Urgente de Word
Posted: Sat Sep 21, 2019 09:42 PM
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Ayuda Urgente de Word
Posted: Sat Sep 21, 2019 10:23 PM

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

FWH 22.10 - HARBOUR - PELLES C
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Ayuda Urgente de Word
Posted: Sat Sep 21, 2019 11:05 PM

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"

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 476
Joined: Sat Feb 03, 2007 06:36 AM
Re: Ayuda Urgente de Word
Posted: Sun Sep 22, 2019 01:17 PM
Hola Antonio,
Te envío este ejemplo por si te sirve de guía:

Code (fw): Select all Collapse
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 (fw): Select all Collapse
El cliente [nombrecliente] con estado civil [estadocivil] donde su direccion es [direccioncliente]


Saludos

Carlos
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Ayuda Urgente de Word
Posted: Sun Sep 22, 2019 04:38 PM

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.

FWH 22.10 - HARBOUR - PELLES C

Continue the discussion