Exportar Datos de DBGrid a Word

[Casimiro Notevi]

Mira los enlaces de final de página.

[Franfarnaz]

Empezado por Casimiro Notevi

Mira los enlaces de final de página.

Muy amable señor, pero en los link que mencionas y los links que se mencionan dentro de los post que me recomiendas, algunos nunca recibieron ayuda y los que recibieron solo hacen referencias a campos creados previamente en la plantilla. lo que trato de hacer es a través de un comando crear estos campos desde el código en delphi para así poder exportar tantas variables sean necesarias. muy agradecido por su colaboracion.

[Casimiro Notevi]

¿Esto puede ser?

[Franfarnaz]

aGracias por responder, pero no....ese enlace trata el mismo tema de los otros sobre exportar a excel, busco es exportar a word pero sin crear campos DocVariables predefinidos en la plantilla, si no crearlos desde el codigo mediante el comando doc.fields.add que aun no logro hacerlo funcionar en delphi.

[Franfarnaz]

Ok revisando por todas las paginas posibles en varios idiomas hasta donde los entiendo, ninguno trabaja de la forma que busco la Automatizacion en Word desde delphi, por lo que Decidí usar una sola variable que me guardara todos los registros del DbGrid y con la ayuda de saltos de linea logra darle una apariencia aceptable al informe. Espero algún día alguien encuentre la forma de crear docvariables desde el código. hasta hoy esta fue mi solucion:

Código Delphi [-]
procedure TVisual_Seguimiento.btn2Click(Sender: TObject);
var
  Word, Range: Variant;
  Documento,A, B, C, S,Codigo : Variant;
  i,o: Integer;
  Val, FldType,r,NomVar, FileName, TypeDoc: OleVariant;
  ArchTexto: TextFile;
begin

  Word := CreateOleObject('Word.Application');
  Word.Documents.Open('D:/Planilla.dot');
  Documento := Word.Documents.Item(1);
  //Recorro Todo el DbGrid
  while not DBGrid1.DataSource.DataSet.Eof do
  begin
    //Selecciono los campos que requiero del DBGrid, La variable código es para otro propósito.
    Codigo:=DBGrid1.Fields[1].AsString;
    A:=DBGrid1.Fields[0].AsString;
    B:=DBGrid1.Fields[2].AsString;
    C:=DBGrid1.Fields[3].AsString;
    S:=  'Fecha:'+' '+ A +#13+ 'Observaciones:'+' ' + B +#13+  'Estado:'+' ' + C +#13+ '--------------------------------------------' +#13;
    NomVar:= NomVar + S;
    DBGrid1.DataSource.DataSet.Next;

  end;
  Documento.Variables.Add('Reporte', NomVar);
  Documento.Fields.Update;
  Word.ActiveWindow.View.ShowFieldCodes := False;
  Word.Visible := true;
  Word.Documents.Save;

end;