[NNMakarov]

Всем доброго дня.

У меня такая ситуевина

Заполняю вордовский документ

Код:

function TfrmChangeW.FindValues(FindValue,ReplValue: string): Boolean;
begin
  W.Selection.Find.Forward:=True;
  W.Selection.Find.Text:=FindValue;
  W.Selection.Find.Replacement.Text:=ReplValue;
  if W.Selection.Find.Execute(Replace:=2) then Result:=true;
end;

В тексте все заменяется изумительно, а вот текст в "Надписях" (объект TextBox коллекции Shapes) игнорируется напрочь.
У меня этих надписей порядка 2-х десятков и некоторые из них повторяются.

Люди добрые! Подскажите как заменить текст в надписях.