| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

нужно кинуть таблицу (2, 12) в WORD [D7, WinXP]

linox ©   (2005-12-01 13:45:00) 

Сначала кажется идет:
wordapplication1.Selection.
а что дальше не могу подобрать.....
подскажите пожалуйста

---

linox   (2005-12-02 16:11:00) [1]

2 SergGG
нету, ее нужно создать,
потому что есть 6000 записей в екселе и нужно автоматом сделать шаблоны в ворде

---

SergGG   (2005-12-01 17:00:00) [2]

Если у тебя есть таблица в Worde, то должно работать

Table - цифра

---

linox   (2005-12-01 16:30:00) [3]

2 SergGG:
ItemTable.Item(Table).Cell(Row,Col).Range.InsertAfter(Text);
                      ^
                      ||
                 что здесь нужно писать? (вместо Table)
если писать цифру (integer), то нельзя вписывать  Cell(Row,Col).Range???

---

SergGG   (2005-12-01 15:22:00) [4]

Может это тебе поможет:


procedure TWordDoc.TableItem(Row,Col:integer;Text:String;Table:integer);
var ItemTable:Tables;
begin
 ItemTable:=WordApplication1.ActiveDocument.Tables;
 ItemTable.Item(Table).Cell(Row,Col).Range.InsertAfter(Text);
end;

Table--№ таблицы в Worde

---

Наверх