Но если очень надо можно и Word
Отправляй лучше в Excel
добавь модуль в проект Borland\Delphi7\Source\Rtl\Common\ComObj.pas
implementation uses ComObj;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Excel: variant;
i:Integer;
begin
Excel := CreateOleObject('Excel.Application');
Excel.Workbooks.Add;
Table1.First;
for i:=1 to Table1.RecordCount do
begin
Excel.Sheets[1].Cells[i,1].Value:=Table1.FieldByName('Имя_поля').Asstring;
Excel.Sheets[1].Cells[i,2].Value:=Table1.FieldByName('Имя_поля_2').Asstring;
...;
Table1.Next;
end;
Excel.Visible:=True;
close;
end;
|