Скачать: CL | DM;

нужно кинуть таблицу (2, 12) в WORD   Найти похожие ветки 

← →
linox   (2005-12-01 13:45) [0]

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

---

← →
SergGG ©   (2005-12-01 15:22) [1]

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


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

---

← →
linox   (2005-12-01 16:30) [2]

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

---

← →
SergGG ©   (2005-12-01 17:00) [3]

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

Table - цифра

---

← →
linox   (2005-12-02 16:11) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c