В сегодняшнем п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
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 .. найдите экспертов, которые подверглись цензуре, а затем позвольте им сказать вам, почему и почему вам нужно знать.
ГБУ все 🙂
Отлично! Единственная проблема, с которой я столкнулся, заключалась в том, что сначала это не сработало, потому что в диалоговом окне «Найти» оставался лишний текст. Я бы предложил добавить эту строку после «.Highlight = True»:
.Текст = ""