1 Тема от Route

  • Route
  • подполковник
  • Неактивен
  • Зарегистрирован: 21.07.2010
  • Сообщений: 149
  • Поблагодарили: 1

Тема: Сбросить параметры "Найти и заменить"

Добрый день! У меня в макросе выполняется вот такой код:

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(Вывод)*(под_снос)"
        .Replacement.Text = "\1\2"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

Данный код удаляет весь текст между словом Вывод и под_снос. Т.е. если было так:

Вывод
бла бла бла
бла бал бла
под_снос

то после этого кода становится: Выводпод_снос

Тут меня все устраивает (хотя может можно как-то по другому сделать эту операцию?), но после выполнения этого макроса не хотят работать другие, связанный с поиском слов, так как в полях "Найти и заменить" остаются значения: в поле найти - Вывод, в поле Заменить - \1\2. На это дело он и ругается. Как можно сбросить все параметры "Найти и заменить" и все очистить? Ну как бы обнулить поиск.

Заранее спасибо за помощь!

2 Ответ от Route

  • Route
  • подполковник
  • Неактивен
  • Зарегистрирован: 21.07.2010
  • Сообщений: 149
  • Поблагодарили: 1

Re: Сбросить параметры "Найти и заменить"

Вопрос снят! Ступил! ) Просто при следующем поиске надо очистить эти поля )))