вопрос по 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 - кастрат какой-то ;)

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

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