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

Как вставить рисунок (bitmap) из Clipboard в Word?   Найти похожие ветки 

← →
AlexSM   (2002-09-06 13:43) [0]

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

---

← →
Рыжик ©   (2002-09-06 14:23) [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;

---

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

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



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