|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
поиск и замена текста в автофигурах Word
Помогите.
Приведенным ниже кодом, ищу и заменяю текст в документе word: Код:
OWord(TFileName); {открываю документ} SeekInsert(SText, IText); {ищем, заменяем} CWord(TFileName); {закрываем документ} ... function SeekInsertInText(SText, IText : string):boolean; {функция поиска и замены} begin WordApp1.Selection.Find.ClearFormat ting; WordApp1.Selection.Find.Replacement .ClearFormatting; WordApp1.Selection.Find.Text:=SText ; WordApp1.Selection.Find.Replacement .Text:=IText; WordApp1.Selection.Find.Forward:=Tr ue; WordApp1.Selection.Find.Wrap:=wdFin dContinue; WordApp1.Selection.Find.Format:=Fal se; WordApp1.Selection.Find.MatchCase:= False; WordApp1.Selection.Find.MatchWholeW ord:=False; WordApp1.Selection.Find.MatchWildca rds:=False; WordApp1.Selection.Find.MatchAllWor dForms:=False; WordApp1.Selection.Find.Execute(Rep lace:=wdReplaceAll); end; Всё хорошо ищет и заменяет. НО! моя функция игнорирует надписи, или если хотите - автофигуры. Т.к. пока я дилетант во взаимодействии word'a и delphi, подскажите как можно решить эту проблему. И чтобы сразу выкинуть мусор и хлам из темы просьба не писать "умным": - погугли, там полно примеров; - запиши макрос в word и посмотри; - не могу понять что ты хочешь; Была идея создания макроса в Word и запуска его программно. Но, тогда каким образом ввести параметры поиска и замены для макроса из delphi? ЗАРАНЕЕ, ОГРОМНОЕ СПАСИБО! Последний раз редактировалось Admin, 18.04.2011 в 15:00. |