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

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

Копирование текста из Ворда в RichViewEdit [D7, WinXP]

NBAH1990 ©   (2010-01-14 13:52:00) 

Ниже код, из открытого ворда, копирует все что между тегами, Я смог написать код, который выделяет текст между тегами, кроме текста содержатся  картинки. РАботаю с RichViewEdit в Delphi. Как скопировать текст вместе с картинками, не изменяя их положение, т.е так как есть.

DD:=wdCollapseEnd;
Templ:='$$$';
D:=wdFindStop;
WordApplication1.Selection.Find.Execute(Templ, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, D, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
Start:=WordApplication1.Selection.End_;
WordApplication1.Selection.Collapse(DD);

Templ:='$$$';

WordApplication1.Selection.Find.Execute(Templ, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, D, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
End_:=WordApplication1.Selection.Start;
WordApplication1.Selection.Collapse(DD);
WordApplication1.Selection.Start:=Start;
WordApplication1.Selection.End_:=End_;
WordApplication1.Selection.Select;
if length(WordApplication1.Selection.Text)>1 then
wordApplication1.Selection.Copy

---

KilkennyCat   (2010-01-14 18:23:00) [1]

PrintScreen

---

Сергей М.   (2010-01-14 14:36:00) [2]

> не изменяя их положение

Никак.
Ворд при рендеринге документов опирается на пейджсетап тек.устройства печати по умолчанию.
Ричвьюер ничего не знает ни  о каких принтерах, поэтому вставленная в ричвью копия оригинала всегда будет отличаться от того что визуализирует Ворд.

---

Наверх