![Старый](images/statusicon/post_old.gif)
10.05.2011, 15:53
|
![Аватар для Mermaid](image.php?u=16955&dateline=1305026239) |
Прохожий
|
|
Регистрация: 10.05.2011
Сообщения: 4
Версия Delphi: 7
Репутация: 10
|
|
Замена выделенного текста в 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.
|