Копирование текста из Ворда в RichViewEdit

← →
NBAH1990 (2010-01-14 13:52) [0]

Ниже код, из открытого ворда, копирует все что между тегами, Я смог написать код, который выделяет текст между тегами, кроме текста содержатся картинки. РАботаю с 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

← →
Сергей М. © (2010-01-14 14:36) [1]

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

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

PrintScreen

Копирование текста из Ворда в RichViewEdit Найти похожие ветки