[avlocura]

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