| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как StringGrid отправить в Word?
ret_Avr © (2002-11-24 19:43:00)Подскажите, кто знает, как StringGrid отправить в Word?
Текст могу, а таблицу нет :(
alvin (2002-11-27 08:55:00) [1]tabls:=aRange.Tables;
// добавляем новую таблицу размером 5 на 5
tabl:=tabls.Add(arange,StringGrid1.RowCount,4);
// в цикле
///////////////////////////////////////////////////////////////
for i:=0 to StringGrid1.RowCount-1 do begin
// задаем ширину 1-й ячейки
tabl.Cell(i+1,1).Width:=50;
//читаешь значение и stringgrig
tabl.Cell(i+1,1).Range.Text:=StringGrid1.Cells[0,i];
// задаем ширину 2-й ячейки и т.д.
tabl.Cell(i+1,2).Width:=150;
tabl.Cell(i+1,2).Range.Text:=StringGrid1.Cells[1,i];
tabl.Cell(i+1,3).Width:=170;
tabl.Cell(i+1,3).Range.Text:=StringGrid1.Cells[2,i];
tabl.Cell(i+1,4).Width:=80;
tabl.Cell(i+1,4).Range.Text:=StringGrid1.Cells[3,i];
end;
MBo (2002-11-24 19:52:00) [2]http://www.lmc-mediaagentur.de/dpool/tips/1256.htm
| |
