Форум: "Основная";
Текущий архив: 2011.08.21;
Скачать: [xml.tar.bz2];

Вниз

Копирование текста из Ворда в 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]

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

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

---

← →
KilkennyCat ©   (2010-01-14 18:23) [2]

PrintScreen

---

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

Форум: "Основная";
Текущий архив: 2011.08.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.003 c