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

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

Bookmarks [Delphi, Windows]

john_mag ©   (2005-11-14 10:35:00) 

Уважаемые знатоки, подскажите, как можно скопировать часть документа в doc файле между двумя закладками? У меня постоянно выскакивает ошибка несовместимость типов, когда я пытаюсь сделать следующим образом:
//Copy-Paste
procedure TForm1.Button8Click(Sender: TObject);
var  
 Rng: Variant;
 What, Which,Count,Name,Name1,Name2,Start,End_: OleVariant;
begin
What:= wdGoToBookmark;
Which:= EmptyParam;
Count:= EmptyParam;
Name1:= 'MyBookmark1';
Name2:= 'MyBookmark2';
Start:= WordApplication1.ActiveDocument.GoTo_(What,Which,Count,Name1);
End_:= WordApplication1.ActiveDocument.GoTo_(What,Which,Count,Name2);
Rng:= WordApplication1.ActiveDocument.Range(Start,End_);
What:= wdGoToPage;
Which:= EmptyParam;
Count:= -21;//на 1 страницу
Name:= '';
WordApplication1.Selection.GoTo_(What,Which,Count,Name);
end;

---

john_mag   (2005-11-16 09:41:00) [1]

Да, но копируется только текст! А я бы хотел полностью с номерами страниц, колонтитулами и тд, те со всеми регалиями! спасибо!

---

YurikGL   (2005-11-15 20:55:00) [2]

> как можно скопировать часть документа в doc файле между
> двумя закладками?

Если в буфер, что-то типа

App.ActiveDocument.Range(
App.ActiveDocument.Bookmarks.Item(1).Start,
App.ActiveDocument.Bookmarks.Item(2).Start).select;
потом
app.selection.copy;

---

Наверх