no p de hojeost, temos o prazer de compartilhar com você a maneira eficaz de remover uma cor de destaque específica de 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
- primeiro e primeiroost, clique na guia "Desenvolvedor" na faixa de opções.
- 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”.
- Em seguida, clique em projeto “Normal” na coluna da esquerda no editor.
- Em seguida, clique na guia "Inserir" na barra de menu.
- No menu suspenso, escolha “Módulo”.
- Agora clique duas vezes no novo módulo para abrir a área de codificação.
- 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("Escolha uma cor de destaque para remover (digite o valor):" & 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 ("A cor de destaque escolhida foi removida do documento.") Application .ScreenUpdating = True Set objDoc = Nada End Sub
- Em seguida, clique no botão “Executar” ou pressione “F5” para executar os códigos.
- Em seguida, há a caixa “Highlight Color”. Existe um valor para cada cor. Basta inserir o valor referente à cor de destaque a ser removida.
- Por último, mas não menos importante, clique em “OK” para prosseguir.
- 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, o most A maneira recomendada é fazer backup dos arquivos regularmente. Certifique-se sempre de ter a versão mais recente para recorrer enquanto algo inesperado acontece. Caso contrário, você terá que passar pelo 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