[Mermaid]

Подскажите, пожалуйста. Ниже приведенный код работает, но не так, как надо

Код:

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, то выделенный фрагмент заменяется на пусто.

[Sleipnir]

Честно говоря не совсем уверен что second имеет тип string.

А асли попробовать написать что second:='некая строка', а уже потом Selection.Text:=second, то что получится?

[Mermaid]

да забыла написать, переменные first и second выше объявлены типа string. Если переменной присвоить текст, а потом Selection.Text:=second, выделенный текст будет заменен пустым

[Sleipnir]

http://www.delphisources.ru/pages/fa...t_replace.html

Вот здесь посмотрите.

[Mermaid]

результат тот же