|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Замена выделенного текста в Word
Подскажите, пожалуйста. Ниже приведенный код работает, но не так, как надо
Код:
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, то выделенный фрагмент заменяется на пусто. Последний раз редактировалось Admin, 10.05.2011 в 15:59. |
#2
|
|||
|
|||
Честно говоря не совсем уверен что second имеет тип string.
А асли попробовать написать что second:='некая строка', а уже потом Selection.Text:=second, то что получится? |
#3
|
||||
|
||||
да забыла написать, переменные first и second выше объявлены типа string. Если переменной присвоить текст, а потом Selection.Text:=second, выделенный текст будет заменен пустым
|
#4
|
|||
|
|||
|
#5
|
||||
|
||||
результат тот же
|