Ver Mensaje Individual
  #42  
Antiguo 10-06-2015
buca1678 buca1678 is offline
Registrado
NULL
 
Registrado: jun 2014
Posts: 3
Reputación: 0
buca1678 Va por buen camino
Cool Pasar datos a plantilla Word en Delphi o Lazarus

De esta forma paso los datos a una planilla word de una dbgrid insertando en word campos doc variables.
Código Delphi [-]
var
  Word: Variant;
  Documento,A, B, C: Variant;

begin

  (* Creas un objeto Word *)
  Word := CreateOleObject('Word.Application');

  (* Añades un documento basado en la plantilla *)
  Word.Documents.Add('C:\planilla.dot');
  Documento := Word.Documents.Item(1);

  (*Asignas Valores a la Variables*)
  A:=Dbgrid1.DataSource.DataSet.Fields[114].AsString;
  B:=Dbgrid1.DataSource.DataSet.Fields[115].AsString;
  C:= Dbgrid1.DataSource.DataSet.Fields[116].AsString;
  
  (* Asignas valores a los campos *)
  Documento.Variables.Add('Nombre', A);
  Documento.Variables.Add('Direccion', B);
  Documento.Variables.Add('Colonia', C);

  Word.ActiveWindow.View.ShowFieldCodes := false;
  Documento.Fields.Update;
  Word.Visible := true;

end;

Última edición por nlsgarcia fecha: 10-06-2015 a las 22:28:11. Razón: Formateo y Sintaxis Delphi
Responder Con Cita