Insertar datos a word

[buca1678]

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;