Поиск и замена слова в "Надписье" Word

Bisekenov

Всем здрасте! Как в Delphi можно искать и заменить текст в надписи. именно в надписи а не простые тексты на листеза ранее благодарен!кстати в нете и в форумах информации много насчет поиска и замены текстов но они не подходят для надписей так что строго не судить
3 ответа

Bisekenov

В каких именно "надписях" предполагается искать текст? В заголовках (Titles) таблиц? В подписях к рисунку? И там и там поиск текста находит и умеет заменять нужное... В чем проблема-то?


Bisekenov

Все решил сам извеняюсь перед админами. А кстати вопрос как можно сказать спасибо самому себе?Вот код если кому надо, а если не надо админы можно удалить тему
procedure TForm3.Button1Click(Sender: TObject);
var w:olevariant; 
begin
  w := CreateOLEObject('Word.Application');
  W.Documents.Open('C:\Doc1.docx');
  w.visible:=true;
w.activedocument.shapes.range(('Text Box 2')).select;
w.selection.text:='аааа';
w.activedocument.shapes.range(('Text Box 3')).select;
w.selection.text:='фффф';
end;
не забудьте убить ворд по окончанию процесса


Bisekenov

Bisekenov,
не забудьте убить ворд по окончанию процесса
w.Quit; //Посылаем команду MS WORD на закрытие.