Как удалить определенный цвет выделения из документа 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

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

Комментарии закрыты.