Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

вопрос по TWordDocument... [D7, Win2k]

Азазелло © (2006-02-14 13:48:00)
Всем доброго времени!

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

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

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

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

Азазелло (2006-02-15 08:31:00) [1]
Всем спасибо, данное позиционирование прекрасно работает в TWordApplication, а TWordDocument - кастрат какой-то ;)

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

Dmitrij_K (2006-02-14 16:51:00) [2]
То есть
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);

Dmitrij_K (2006-02-14 16:46:00) [3]
Переход в конец документа
p1 := wdStory; app.Selection.EndKey(p1, EmptyParam);

Азазелло (2006-02-14 16:10:00) [4]
попробовал, увы - не работает.. либо мне что-то в консерватории править надо..

umbra (2006-02-14 14:53:00) [5]
может быть, после каждой вставки надо делать что-то вроде

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

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

Lexer (2006-02-14 14:32:00) [6]
Странно, зачем использовать буфер, если есть Range.InsertFile?

Наверх

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