Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.05.2011, 16:50   #1
Mermaid
Новичок
Джуниор
 
Регистрация: 10.05.2011
Сообщений: 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.Fie ldByName('firm').Text;
if Selection.Find.ExecuteOld(first, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, wdReplaceAll)
then Selection.Text:=second;

переменные second и first имеют тип string
Если записать Selection.Text:=' какой то текст', то найденный текст заменяется, а если Selection.Text присвоить переменную типа string, то выделенный фрагмент заменяется на пусто.
Mermaid вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск и замена текста в надписях Word shakycucumber Общие вопросы Delphi 2 19.04.2011 02:18
Замена текста Lived08 Microsoft Office Excel 11 28.07.2010 14:20
замена текста designer999 Общие вопросы Delphi 5 23.03.2010 17:31
замена слов в MS Word polov Общие вопросы Delphi 4 09.10.2009 18:29