Показать сообщение отдельно
  #2  
Старый 11.04.2007, 11:56
Аватар для merdashka
merdashka merdashka вне форума
Новичок
 
Регистрация: 03.04.2007
Адрес: Ашгабат
Сообщения: 77
Репутация: 10
По умолчанию Но если очень надо можно и 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;
Ответить с цитированием