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

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

Как вставить рисунок (bitmap) из Clipboard в Word? [D5, Win95/98, WinME]

AlexSM ©   (2002-09-06 13:43:00) 

Нужно в Word-овском документе найти текст "@к" и заменить его на рисунок, который лежит в Clipboard. Парюсь второй день! Рисунок вставляется, но только в начало документа. Подскажите :o(

---

Рыжик   (2002-09-06 14:23:00) [1]

var FindText,FindReplaceWith,FindForward,FindWrap,FindFormat,FindMatchCase,FindMatchWholeWord,FindMatchWildcards,FindMatchSoundsLike,FindMatchAllWordForms,FindReplace,ep :OleVariant;
b:boolean;
begin
...///помещаем в Clipboard то, что надо

ep:=EmptyParam;
WordApplication1.Selection.Find.ClearFormatting;
FindText := "@k";
FindReplaceWith:= "";
FindForward := True;
FindWrap := wdFindContinue;
FindFormat:= False;
FindMatchCase := False;
FindMatchWholeWord := False;
FindMatchWildcards := False;
FindMatchSoundsLike := False;
FindMatchAllWordForms := False;
FindReplace:=wdReplaceOne;
b:=WordApplication1.Selection.Find.Execute(FindText,FindMatchCase,FindMatchWholeWord,
FindMatchWildcards,FindMatchSoundsLike,FindMatchAllWordForms,FindForward,FindWrap,
FindFormat,FindReplaceWith,FindReplace,ep,ep,ep,ep);
if b then WordApplication1.Selection.Paste;
end;

---

Наверх