Как удалить определенный цвет выделения из документа Word

Поделись сейчас:

В сегодняшнем пost, мы рады поделиться с вами эффективным способом удаления определенного цвета выделения из документа Word.

В одной из наших предыдущих статей мы уже рассказывали о способах удаления цветов подсветки. Для получения подробной информации вы можете обратиться по этой ссылке: 5 методов удаления выделения или затенения в документе Word

Сегодня давайте рассмотрим еще один случай, когда документ может содержать несколько цветов подсветки, чтобы выделить различный тип содержимого. В таком случае обычные способы не могут распознать один конкретный цвет подсветки. На самом деле, единственный быстрый и эффективный способ — запустить макрос Word.Удалить определенный цвет выделения из документа Word

Теперь взгляните на ревущий подход.

Удалить определенный цвет выделения через VBA

  1. Первый и первыйost, щелкните вкладку «Разработчик» на ленте.
  2. Затем нажмите «Visual Basic», чтобы вызвать редактор VBA в Word. А учитывая, что у вас может быть еще недоступна вкладка «Разработчик», вместо этого вы можете нажать «Alt + F11».
  3. Затем нажмите «Обычный» проект в левой колонке редактора.
  4. Затем нажмите вкладку «Вставить» в строке меню.
  5. В выпадающем меню выберите «Модуль».Нажмите «Обычный» -> нажмите «Вставить» -> нажмите «Модуль».
  6. Теперь дважды щелкните новый модуль, чтобы открыть область кодирования.
  7. Вставьте в модуль следующий макрос:
Sub RemoveSpecificHighlightColor() Dim objDoc As Document Dim objRange As Range Dim strHighlightColor As String Application.ScreenUpdating = False Set objDoc = ActiveDocument strHighlightColor = InputBox("Выберите цвет выделения для удаления (введите значение):" & vbNewLine & _ vbTab & " Auto" & vbTab & vbTab & "0" & ​​vbNewLine & _ vbTab & "Черный" & vbTab & vbTab & "1" & vbNewLine & _ vbTab & "Синий" & vbTab & vbTab & "2" & vbNewLine & _ vbTab & "BrightGreen" & vbTab & "4" & vbNewLine & _ vbTab & "DarkBlue" & vbTab & vbTab & "9" & vbNewLine & _ vbTab & "DarkRed" & vbTab & vbTab & "13" & vbNewLine & _ vbTab & " DarkYellow" & vbTab & "14" & vbNewLine & _ vbTab & "Gray25" & vbTab & vbTab & "16" & vbNewLine & _ vbTab & "Gray50" & vbTab & vbTab & "15" & vbNewLine & _ vbTab & "Green " & vbTab & vbTab & "11" & vbNewLine & _ vbTab & "Розовый" & vbTab & vbTab & "5" & vbNewLine & _ vbTab & "Красный" & vbTab & vbTab & "6" & vbNewLine & _ vbTab & " Teal" & vbTab & vbTab & "10" & vbNewLine & _ vbTab & "Бирюзовый" & vbTab & "3" & vbNewLine & _ vbTab & "Фиолетовый" & vbTab & vbTab & "12" & vbNewLine & _ vbTab & "Белый " & vbTab & vbTab & "8" & vbNewLine & _ vbTab & "Yellow" & vbTab & vbTab & "7", "Highlight Color") With Selection .HomeKey Unit:=wdStory With Selection.Find .Highlight = True Do While .Execute If Selection.Range.HighlightColorIndex = strHighlightColor Then Set objRange = Selection.Range objRange.HighlightColorIndex = wdNoHighlight Selection.Collapse wdCollapseEnd End If Loop End With End With MsgBox («Выбранный цвет выделения был удален из документа».) Приложение .ScreenUpdating = True Set objDoc = Nothing End Sub
  1. Затем нажмите кнопку «Выполнить» или нажмите «F5», чтобы выполнить коды.Вставьте макрос-> нажмите «Выполнить».
  2. Далее есть поле «Цвет выделения». Для каждого цвета есть значение. Просто введите значение, относящееся к цвету подсветки, который нужно удалить.
  3. И последнее, но не менее важное: нажмите «ОК», чтобы продолжить.Введите значение цвета-> нажмите «ОК».
  4. Когда это будет сделано, вы получите такое окно сообщения:Окно результатов

Вот возможный исход:Результат

Храните ваши данные в безопасности

Целостность данных может быть легко нарушена. Пришло время принять превентивные меры, пока не стало слишком поздно. Например, мost Рекомендуемый способ — регулярно создавать резервные копии файлов. Всегда убедитесь, что у вас есть последняя версия, чтобы прибегнуть к чему-то неожиданному. В противном случае вам придется пройти Восстановление слов чтобы вернуть данные.

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая исправить xlsx и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

2 ответа на «Как удалить определенный цвет выделения из документа Word»

  1. Datanumen, это было фантастически, так трудно найти полезные макросы для нас, новичков.
    Я объединил это с другим макросом и создал дополнительную строку ниже с RGB
    objRange.HighlightColorIndex = wdNoHighlight
    objRange.Font.Shading.BackgroundPatternColor = RGB(255, 229, 153)
    Это сработало как шарм, чтобы выбрать все Highlight of a Specific и преобразовать в «Shading», который имеет превосходный диапазон цветовой палитры, чем простая 16 чрезмерно навязчивая цветовая палитра «Highlight».
    Теперь нужно решить, как «найти и заменить» один RGB на другой, не удалось заставить эту модель сделать это.
    Счастливого всем онлайн-плавания, и остерегайтесь глобалистских программ, альтернативные СМИ - единственное место для правды без цензуры, сtart с поиском ваших тем на duckduckgo, bitchute, rumble, telegram .. найдите экспертов, которые подверглись цензуре, а затем позвольте им сказать вам, почему и почему вам нужно знать.
    ГБУ все 🙂

  2. Отлично! Единственная проблема, с которой я столкнулся, заключалась в том, что сначала это не сработало, потому что в диалоговом окне «Найти» оставался лишний текст. Я бы предложил добавить эту строку после «.Highlight = True»:

    .Текст = ""

Оставьте комментарий

Ваш электронный адрес не будет опубликован. Обязательные поля помечены * *