Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Текст помеченный красным - удаляется. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Текст помеченный красным - удаляется.
Текст помеченный красным - удаляется.
cerber412 Дата: Четверг, 23.03.2017, 23:53 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте уважаемые программисты.
Помогите решить проблему.

Есть вордовский документ, часть текста в нем помечена красным. Снизу текста - находится кнопка.

Как макросом - при щелчке на кнопку - заставить текст, помеченный красным - удалиться?
К сообщению приложен файл: 234234.doc (21.0 Kb)
 
Ответить
СообщениеЗдравствуйте уважаемые программисты.
Помогите решить проблему.

Есть вордовский документ, часть текста в нем помечена красным. Снизу текста - находится кнопка.

Как макросом - при щелчке на кнопку - заставить текст, помеченный красным - удалиться?

Автор - cerber412
Дата добавления - 23.03.2017 в 23:53
Boris_R Дата: Воскресенье, 26.03.2017, 19:07 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
А зачем макросом?
Найти и заменить

Поле "Найти" - ввести
^?
Формат
выделение цветом

Поле "Заменить" - ничего не вводить

Заменить все
 
Ответить
СообщениеА зачем макросом?
Найти и заменить

Поле "Найти" - ввести
^?
Формат
выделение цветом

Поле "Заменить" - ничего не вводить

Заменить все

Автор - Boris_R
Дата добавления - 26.03.2017 в 19:07
cerber412 Дата: Понедельник, 27.03.2017, 12:51 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Boris_R, ну у меня - в документе кроме красного цвета - есть выделение желтым, синим, зеленым - эти цвета мне удалять не нужно.
 
Ответить
СообщениеBoris_R, ну у меня - в документе кроме красного цвета - есть выделение желтым, синим, зеленым - эти цвета мне удалять не нужно.

Автор - cerber412
Дата добавления - 27.03.2017 в 12:51
Boris_R Дата: Понедельник, 27.03.2017, 15:38 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
у меня - в документе кроме красного цвета - есть выделение желтым, синим, зеленым - эти цвета мне удалять не нужно.

Тогда пробуйте макрос:
[vba]
Код
Sub del_RedHighlight()
    Dim sText As String
    Dim orng As Word.Range
    sText = "^?"    '^? - любой символ
    Set orng = ActiveDocument.Range
        orng.Find.ClearFormatting
        orng.Find.Highlight = True
        orng.Find.Replacement.ClearFormatting
    Application.ScreenUpdating = False
    With orng.Find
            .Text = sText
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindStop
            .MatchCase = False
            .MatchWholeWord = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = False
        
        Do While .Execute = True
            If orng.HighlightColorIndex = wdRed Then 'Цвет подсветки текста красный?
                orng.Delete                          'Если да, то найденный символ удаляем
            End If
        Loop
    End With
    Application.ScreenUpdating = True
End Sub
[/vba]
 
Ответить
Сообщение
у меня - в документе кроме красного цвета - есть выделение желтым, синим, зеленым - эти цвета мне удалять не нужно.

Тогда пробуйте макрос:
[vba]
Код
Sub del_RedHighlight()
    Dim sText As String
    Dim orng As Word.Range
    sText = "^?"    '^? - любой символ
    Set orng = ActiveDocument.Range
        orng.Find.ClearFormatting
        orng.Find.Highlight = True
        orng.Find.Replacement.ClearFormatting
    Application.ScreenUpdating = False
    With orng.Find
            .Text = sText
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindStop
            .MatchCase = False
            .MatchWholeWord = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = False
        
        Do While .Execute = True
            If orng.HighlightColorIndex = wdRed Then 'Цвет подсветки текста красный?
                orng.Delete                          'Если да, то найденный символ удаляем
            End If
        Loop
    End With
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Boris_R
Дата добавления - 27.03.2017 в 15:38
cerber412 Дата: Понедельник, 27.03.2017, 17:10 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Boris_R, спасибо.
Работает.
 
Ответить
СообщениеBoris_R, спасибо.
Работает.

Автор - cerber412
Дата добавления - 27.03.2017 в 17:10
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Текст помеченный красным - удаляется.
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!