aanil
25-03-2008, 01:07:54
Hola a todos.
Encontre este codigo en el foro que me puede servir para llenar unos cuantos campos de una plantilla que tengo hecha en word. Mi necesidad esta en que como hago en el siguiente codigo que los datos consultados en una tabla desde delphi se coloquen en los campos variables, o sea:
Documento.Variables.Add('nombre', 'pepe pérez'); pepe perez sea el nombre que tome de la tabla consultada, y asi con los demas campos variable de la plantilla que tengo hecha en Word
Veamos el codigo que si funciona, pero no a mi necesidad:
Gracias por adelantado.
AANIL
Rep. Dominicana
uses ComObj;...
var
Word: Variant;
Documento: Variant;
begin
(* Creas un objeto Word *)
Word := CreateOleObject('Word.Application');
(* Añades un documento basado en la plantilla *)
Word.Documents.Add('carta.dot');
Documento := Word.Documents.Item(1);
(* Asignas valores a los campos *)
Documento.Variables.Add('nombre', 'pepe pérez');
Documento.Variables.Add('direccion', 'domicilio conocido');
Documento.Variables.Add('fecha', '1976-02-29');
Documento.Variables.Add('deuda', '$1.00 m.n');
end;
End.
Encontre este codigo en el foro que me puede servir para llenar unos cuantos campos de una plantilla que tengo hecha en word. Mi necesidad esta en que como hago en el siguiente codigo que los datos consultados en una tabla desde delphi se coloquen en los campos variables, o sea:
Documento.Variables.Add('nombre', 'pepe pérez'); pepe perez sea el nombre que tome de la tabla consultada, y asi con los demas campos variable de la plantilla que tengo hecha en Word
Veamos el codigo que si funciona, pero no a mi necesidad:
Gracias por adelantado.
AANIL
Rep. Dominicana
uses ComObj;...
var
Word: Variant;
Documento: Variant;
begin
(* Creas un objeto Word *)
Word := CreateOleObject('Word.Application');
(* Añades un documento basado en la plantilla *)
Word.Documents.Add('carta.dot');
Documento := Word.Documents.Item(1);
(* Asignas valores a los campos *)
Documento.Variables.Add('nombre', 'pepe pérez');
Documento.Variables.Add('direccion', 'domicilio conocido');
Documento.Variables.Add('fecha', '1976-02-29');
Documento.Variables.Add('deuda', '$1.00 m.n');
end;
End.