1 Тема от Amalgama

  • Amalgama
  • рядовой
  • Неактивен
  • Зарегистрирован: 07.10.2010
  • Сообщений: 1

Тема: Поиск и замена словосочетаний во всех падежах в одном документе

Здравствуйте!

Есть задача правки текста, заключающаяся в поиске и замене словосочетаний во всех падежах по всему тексту. Автоматизация нужна, потому что таких документов будет больше сотни. Отличаться они будут только наименованием - собственным именем. Вот пример:

1.1.По всему тексту Устава слова «Суховский сельский Совет народных депутатов» в соответствующем падеже заменить словами «Совет народных депутатов Суховского сельского поселения» в соответствующем падеже;
1.2. По всему тексту Устава слова «глава Суховской сельской территории» в соответствующем падеже заменить словами «глава Суховского сельского поселения» в соответствующем падеже;
1.3. По всему тексту Устава слова «Администрация Суховской сельской территории», «администрация Суховской сельской территории» в соответствующем падеже заменить словами «администрация Суховского сельского поселения» в соответствующем падеже;

В следующем документе вместо слова "Суховский" будет значится, например, Береговой....

Стандартным поиском и заменой получается очень долго. Макрос, в котором надо будет подправлять только это имя собственное, наверное,  был бы решением.

Пока вариант только сделать макрос, записываемый из ручных действий (хотя тоже сложновато-лишнего делать нельзя).

Подскажите, в каком направлении двигаться. Буду рада любым подсказкам. smile

2 Ответ от Nataly

  • Nataly
  • рядовой
  • Неактивен
  • Откуда: Россия, Владимир
  • Зарегистрирован: 06.10.2010
  • Сообщений: 1
  • Поблагодарили: 1
  • За сообщение: 1

Re: Поиск и замена словосочетаний во всех падежах в одном документе

Может быть попробовать все перебрать(падежей-то всего 6).
Например, так:

With ActiveDocument.Range.Find
    .Text = "Суховский сельский Совет народных депутатов"
    .Replacement.Text = "Совет народных депутатов Суховского сельского поселения"
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With
    
    Selection.MoveStart

With ActiveDocument.Range.Find
    .Text = "Суховской сельской территории"
    .Replacement.Text = "Суховского сельского поселения"
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
End With

и так далее...

Отредактировано Nataly (08.10.2010 07:25:04)