Нужно написать функцию поиска замены текста в word при помощи delphi с дополнительным форматированием текста в документе.
Функцию вроде написал но форматировать она не хочет только находит и заменяет текст.

function FindAndReplace(const FindText,ReplaceText:string):boolean;
 var
  a:string;
 const wdReplaceAll = 2;
begin
 Word.Selection.Find.MatchSoundsLike := False;
 Word.Selection.Find.MatchAllWordForms := False;
 Word.Selection.Find.MatchWholeWord := False;
 Word.Selection.Find.Format := False;
 Word.Selection.Find.Forward := True;
 Word.Selection.Find.ClearFormatting;
 Word.Selection.Find.Text:=FindText;
 // форматирование
 Word.Selection.Font.Bold:=1;
 Word.Selection.Font.italic:=True;
 Word.Selection.Font.StrikeThrough:=True;
 Word.Selection.Font.Underline:=True;
 Word.Selection.Font.Size:=20;
 // форматирование
 Word.Selection.Find.Replacement.Text:=ReplaceText;
 FindAndReplace:=Word.Selection.Find.Execute(Replace:=wdReplaceAll);
end;

Вот еще веду 2 опроса
http://otvety.google.ru/otvety/thread?tid=4587412f0753093b
http://otvet.mail.ru/question/49499539/

Зарание спасибо. Сам искал в нете не получилось сделать.

Присоединённый файл ( Кол-во скачиваний: 4 )
 3.rar 178,30 Kb

Не знаю, почему не работает: вот у меня код из реальной программы, и всё работает:

Изначально просто текст не был выделен.
Надо было после строки 
 Word.Selection.Find.Text:=FindText;
вставить 
 Word.Selection.Find.Execute;
тогда все работает и выделяет текст