Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Servers (https://www.clubdelphi.com/foros/forumdisplay.php?f=9)
-   -   Insertar un valor en un Campo de word (https://www.clubdelphi.com/foros/showthread.php?t=60346)

avlocura 29-09-2008 15:38:27

Insertar un valor en un Campo de word
 
:confused: Hola a Todos,

Estoy intentando algo que según he leído en este mismo foro parece muy sencillo y es poder interactuar con plantillas de Word para sustituir los campos por valores desde delphi, ya sean resultados de una consulta o un literal.

En primer lugar estoy con Delphi5. El caso es que he probado varios metodos, con los VCL SERVER con componentes TWordApplication y TWordDocument, pero en mi instalación no viene ningun documento de ayuda de estos componentes asi que estoy perdido, he visto algun codigo por ahi que dicen funciona, lo pongo abajo, pero yo lo he probado y nada solo me abre la plantilla sin actualizar los valores. No se si es q despues hay que ejecutar algun comando para que Word actualice, no se, estoy hecho un lio a ver si me podeis ayudar, este es el codigo que he visto por aqui:

Código Delphi [-]
var
Word2: Variant;
Documento: Variant;
begin
(* Creas un objeto Word *)
Word2 := CreateOleObject('Word.Application');

(* Añades un documento basado en la plantilla *)
Word2.Documents.Add('d:\documento.dot');
Documento := Word2.Documents.Item(1);
(* Asignas valores a los campos *)
Documento.Variables.Add('texto1', 'pepe pérez');
Documento.Variables.Add('texto2', '213333333');
Documento.Variables.Add('texto3', '1976-02-29');
Documento.Variables.Add('texto4', '$1.00 m.n');
Word2.Visible := True;
end;

Gracias de antemano

avlocura 29-09-2008 15:43:06

Vaya justo despues de escribir la parrafada me encuentro la solución en un hilo mas abajo este es el link por si interesa a alguien

http://www.clubdelphi.com/foros/showthread.php?t=30762


La franja horaria es GMT +2. Ahora son las 18:25:52.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi