Buscar por:

Exportar dado de uma adotable para o word e criar uma tabela

Código

Implemantation

Uses comobj;

procedure expdoc (Adotable: Tadotable; arq: string);

var

  wordapp, worddoc, wordtable, wordrange: variant;

  row, column: integer;

begin

  wordapp:= createoleobject ('word.basic');

  wordapp.appshow;

  worddoc:=createoleobject('word.document');

  wordrange:=worddoc.range;

  wordtable:=worddoc.tables.add( worddoc.range,1,adotable.FieldCount);

  for column:= 0 to adotable.FieldCount -1 do

    begin

      wordtable.cell (row,column+1).range.text:= adotable.Fields.Fields[column].FieldName;

    end;

    row:=2;

    adotable.first;

  while not adotable.eof do

    begin

    wordtable.rows.add;

    for column:=0 to adotable.fieldcount-1 do

      wordtable.cell(row, column+1).range.text:= adotable.Fields.fields[column].displaytext;

      adotable.Next;

      row:=row+1;

    end;

  wordDoc.saveAs(Arq);

  worddoc:=unassigned;

  end;

procedure Tfrmestagio.BitBtn5Click(Sender: TObject);

begin

 expdoc(ADOTable1, C:dados.doc');

end;