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

Bookmarks   Найти похожие ветки 

← →
john_mag ©   (2005-11-14 10:35) [0]

Уважаемые знатоки, подскажите, как можно скопировать часть документа в 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;

---

← →
YurikGL ©   (2005-11-15 20:55) [1]

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

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

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

---

← →
john_mag ©   (2005-11-16 09:41) [2]

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

---

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

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



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