В сегодняшнем п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("Choose a Highlight colour to remove (enter the value):" & vbNewLine & _
vbTab & "Auto" & vbTab & vbTab & "0" & vbNewLine & _
vbTab & "Black" & vbTab & vbTab & "1" & vbNewLine & _
vbTab & "Blue" & 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 & "Pink" & vbTab & vbTab & "5" & vbNewLine & _
vbTab & "Red" & vbTab & vbTab & "6" & vbNewLine & _
vbTab & "Teal" & vbTab & vbTab & "10" & vbNewLine & _
vbTab & "Turquoise" & vbTab & "3" & vbNewLine & _
vbTab & "Violet" & vbTab & vbTab & "12" & vbNewLine & _
vbTab & "White" & 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 ("The chosen highlight color has been removed in the document.")
Application.ScreenUpdating = True
Set objDoc = Nothing
End Sub
- Затем нажмите кнопку «Выполнить» или нажмите «F5», чтобы выполнить коды.
- Далее есть поле «Цвет выделения». Для каждого цвета есть значение. Просто введите значение, относящееся к цвету подсветки, который нужно удалить.
- И последнее, но не менее важное: нажмите «ОК», чтобы продолжить.
- Когда это будет сделано, вы получите такое окно сообщения:
Вот возможный исход:
Храните ваши данные в безопасности
Целостность данных может быть легко нарушена. Пришло время принять превентивные меры, пока не стало слишком поздно. Например, мost Рекомендуемый способ — регулярно создавать резервные копии файлов. Всегда убедитесь, что у вас есть последняя версия, чтобы прибегнуть к чему-то неожиданному. В противном случае вам придется пройти Восстановление слов чтобы вернуть данные.
Об авторе:
Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая исправить xlsx и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com