Подскажите, пожалуйста. Ниже приведенный код работает, но не так, как надо
Код:
with FormMain.WordApplicationAll do
begin
opendoc:='D:\diplom 17,04,2011\doc_templates\'+ FormDocumentWizard. ComboBoxTypeDoc.Text+'.doc';
Documents.Open(opendoc, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
first:='Название автосалона';
second:=FormMain.IBQueryService.FieldByName('firm').Text;
if Selection.Find.ExecuteOld(first, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, wdReplaceAll)
then Selection.Text:=second;
Админ: Пользуемся тегами для оформления кода!
Если записать Selection.Text:=' какой то текст', то найденный текст заменяется, а если Selection.Text присвоить переменную типа string, то выделенный фрагмент заменяется на пусто.