Como remover uma cor de destaque específica do seu documento do Word

Na publicação de hoje, temos o prazer de compartilhar com você uma maneira eficaz de remover uma cor de destaque específica do seu documento do Word.

Em um de nossos artigos anteriores, já falamos sobre as formas de remover cores de destaque. Para informações detalhadas, você pode consultar este link: 5 métodos para remover realce ou sombreamento em seu documento do Word

Hoje, vejamos outro caso em que um documento pode conter várias cores de destaque para destacar diferentes tipos de conteúdo. Nesse caso, as formas usuais falham em reconhecer uma cor de destaque específica. Na verdade, a única maneira rápida e eficaz é executar uma macro do Word.

Agora dê uma olhada na abordagem abaixo.

Remover uma cor de destaque específica via VBA

1. Em primeiro lugar, clique na guia "Desenvolvedor" na Faixa de Opções.
2. Em seguida, clique em “Visual Basic” para acionar o editor VBA no Word. E considerando que você pode não ter a guia “Desenvolvedor” disponível ainda, você pode pressionar “Alt+F11”.
3. Em seguida, clique em projeto “Normal” na coluna da esquerda no editor.
4. Em seguida, clique na guia "Inserir" na barra de menu.
5. No menu suspenso, escolha “Módulo”.
6. Agora clique duas vezes no novo módulo para abrir a área de codificação.
7. Cole a seguinte macro no módulo:

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

8. Em seguida, clique no botão “Executar” ou pressione “F5” para executar os códigos.
9. Em seguida, há a caixa “Highlight Color”. Existe um valor para cada cor. Basta inserir o valor referente à cor de destaque a ser removida.
10. Por último, mas não menos importante, clique em “OK” para prosseguir.
11. Quando terminar, você receberá uma caixa de mensagem:

Aqui está o resultado possível:

Mantenha seus dados protegidos

A integridade dos dados pode ser facilmente comprometida. É hora de tomar medidas preventivas antes que seja tarde demais. Por exemplo, a maneira mais recomendada é fazer backup dos arquivos regularmente. Certifique-se sempre de ter a versão mais recente para recorrer caso algo inesperado aconteça. Caso contrário, você terá que passar pelo processo de recuperação. Recuperação de palavras para obter dados de volta.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo corrigir xlsx e pdf reparar produtos de software. Para mais informações visite www.datanumen.com