|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.05.2011, 16:50 | #1 |
Новичок
Джуниор
Регистрация: 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, то выделенный фрагмент заменяется на пусто. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск и замена текста в надписях 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 |