В сегодняшнем пost, мы рады поделиться с вами эффективным способом удаления определенного цвета выделения из документа Word.
В одной из наших предыдущих статей мы уже рассказывали о способах удаления цветов подсветки. Для получения подробной информации вы можете обратиться по этой ссылке: 5 методов удаления выделения или затенения в документе Word
Сегодня давайте рассмотрим еще один случай, когда документ может содержать несколько цветов подсветки, чтобы выделить различный тип содержимого. В таком случае обычные способы не могут распознать один конкретный цвет подсветки. На самом деле, единственный быстрый и эффективный способ — запустить макрос Word.
Теперь взгляните на ревущий подход.
Удалить определенный цвет выделения через VBA
- Первый и первыйost, щелкните вкладку «Разработчик» на ленте.
- Затем нажмите «Visual Basic», чтобы вызвать редактор VBA в Word. А учитывая, что у вас может быть еще недоступна вкладка «Разработчик», вместо этого вы можете нажать «Alt + F11».
- Затем нажмите «Обычный» проект в левой колонке редактора.
- Затем нажмите вкладку «Вставить» в строке меню.
- В выпадающем меню выберите «Модуль».
- Теперь дважды щелкните новый модуль, чтобы открыть область кодирования.
- Вставьте в модуль следующий макрос:
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
- Затем нажмите кнопку «Выполнить» или нажмите «F5», чтобы выполнить коды.
- Далее есть поле «Цвет выделения». Для каждого цвета есть значение. Просто введите значение, относящееся к цвету подсветки, который нужно удалить.
- И последнее, но не менее важное: нажмите «ОК», чтобы продолжить.
- Когда это будет сделано, вы получите такое окно сообщения:
Вот возможный исход:
Храните ваши данные в безопасности
Целостность данных может быть легко нарушена. Пришло время принять превентивные меры, пока не стало слишком поздно. Например, мost Рекомендуемый способ — регулярно создавать резервные копии файлов. Всегда убедитесь, что у вас есть последняя версия, чтобы прибегнуть к чему-то неожиданному. В противном случае вам придется пройти Восстановление слов чтобы вернуть данные.
Об авторе:
Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая исправить xlsx и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com