Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.08.2013, 10:50   #1
Route
Новичок
Джуниор
 
Регистрация: 29.10.2007
Сообщений: 2
По умолчанию Сбросить параметры "Найти и заменить"

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

Код:
    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. На это дело он и ругается. Как можно сбросить все параметры "Найти и заменить" и все очистить? Ну как бы обнулить поиск.

Заранее спасибо за помощь!
Route вне форума Ответить с цитированием
Старый 30.08.2013, 11:34   #2
Route
Новичок
Джуниор
 
Регистрация: 29.10.2007
Сообщений: 2
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как заменить "." в TextBox на "/" после ввода?? uralshans Microsoft Office Excel 7 07.01.2013 20:14
Си. Заменить слово "кот" на "пес" luckyluck Помощь студентам 1 10.05.2012 20:02
Как заменить "0" на "," в двумерном массиве(С++)? Vally Помощь студентам 4 10.01.2012 10:36
Параметры запуcка. как обрабатывать параметры вида -somecmd "?" Человек_Борща Общие вопросы Delphi 1 15.01.2011 15:48
Как "сбросить" программу не закрывая её? Janno Общие вопросы Delphi 2 08.04.2007 18:41