Как вставить рисунок (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;

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