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

вопрос по TWordDocument...   Найти похожие ветки 

← →
Азазелло   (2006-02-14 13:48) [0]

Всем доброго времени!

Есть N вoc файлов, их необходимо программно засунуть во вновь созданный doc.

Пытался делать это через Range.Copy Range.Paste, но в результате работы получаю, что в создаваемом документе оказывается только последнее скопированное, а не весь перечень документов. Думал, что связано это с тем, что по умолчанию весь документ принимается за Range, и пытался задавать новый Range(End_, End_), но результат получал тот же.

Пробовал через метод InsertFile и получал те же яица.
Народ, подскажите как это сделать?

С уважением, Игорь.

---

← →
Lexer ©   (2006-02-14 14:32) [1]

Странно, зачем использовать буфер, если есть Range.InsertFile?

---

← →
umbra ©   (2006-02-14 14:53) [2]

может быть, после каждой вставки надо делать что-то вроде


myRange := mydoc.Content;
myRange.Collapse(wdCollapseEnd);


чтобы убрать выделение и сдвинуть курсор в конец документа

---

← →
Азазелло   (2006-02-14 16:10) [3]

попробовал, увы - не работает.. либо мне что-то в консерватории править надо..

---

← →
Dmitrij_K   (2006-02-14 16:46) [4]

Переход в конец документа
     p1 := wdStory;
     app.Selection.EndKey(p1, EmptyParam);

---

← →
Dmitrij_K   (2006-02-14 16:51) [5]

То есть
p1 := wdStory;
app.Selection.EndKey(p1, EmptyParam);
app.Selection.InsertFile(файл1,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
app.Selection.EndKey(p1, EmptyParam);
app.Selection.InsertFile(файл2,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
app.Selection.EndKey(p1, EmptyParam);
app.Selection.InsertFile(файл3,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

---

← →
Азазелло   (2006-02-15 08:31) [6]

Всем спасибо, данное позиционирование прекрасно работает в TWordApplication, а TWordDocument - кастрат какой-то ;)

С уважением, Игорь.

---

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

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



Память: 0.46 MB
Время: 0.027 c