Всем доброго дня.
У меня такая ситуевина
Заполняю вордовский документ
Код:
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-х десятков и некоторые из них повторяются.
Люди добрые! Подскажите как заменить текст в надписях.