Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Поиск и замена текста в колонтитулах  (Прочитано 4852 раз)
0 Пользователей и 1 Гость смотрят эту тему.
shakycucumber
Новенький

ru
Offline Offline

« : 25-04-2011 19:29 » 

Стоит задача найти и заменить текст в колонтитулах, в которых есть таблицы.

накидал такой код:

Код:

var colon, colon1, colon2: olevariant;
  i, b: integer;
begin
  for i:=1 to WordApp1.ActiveDocument.Sections.Count do
    begin
    colon2:=WordApp1.ActiveDocument.Sections.Item(i).Range;
    for b := 1 to WordApp1.ActiveDocument.Sections.item(i).Range.Tables.Count do
      begin {поиск и замена в колонтитулах}
       colon1:=colon2.Tables.item(b).range;
        colon:=Colon1.{Footers.}Range.Find;
        colon.ClearFormatting;
        colon.Replacement.ClearFormatting;
        colon.Text:=SText;
        colon.Replacement.Text:=IText;
        colon.Forward:=True;
        colon.Wrap:=wdFindContinue;
        colon.Format:=False;
        colon.MatchCase:=False;
        colon.MatchWholeWord:=False;
        colon.MatchWildcards:=False;
        colon.MatchAllWordForms:=False;
        colon.Execute(Replace:=wdReplaceAll);
    end;
end;

к сожалению он не выполняет задуманного, помогите найти ошибку.
word открываю другими функциями.
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines