MS Word 2013: Removendo o destaque com a tecla de atalho

Question

Eu tenho um documento do Word com mais de 100 páginas cheio de definições destacadas que preciso corrigir. Quando terminar, tenho que remover o realce.

Isso é fácil com o atalho Ctrl + Alt + H se todos os realces forem da mesma cor. (Ctrl + Space dremoves os estilos, mas não remove os realces.)

Mas as minas são de várias cores diferentes, então cada vez eu tenho que selecionar a cor na fita que torna o atalho inútil.

Existe uma maneira de configurar um atalho (ou um procedimento simplificado) que poderá remover o realce sem precisar defini-lo na faixa de opções?

EDIT1

Estamacroestáfuncionando(oRGBestánofinaldoloopenenhum"caso é baseado nele")

  Select Case Selection.Range.Font.ColorIndex
    Case wdRed
        Selection.Range.Font.ColorIndex = wdPink
    Case wdPink
        Selection.Range.Font.ColorIndex = wdYellow
    Case wdYellow
        Selection.Range.Font.ColorIndex = wdBlue
     Case wdBlue
        Selection.Range.Font.TextColor.RGB = RGB(0, 176, 240)
    Case wdAuto
        Selection.Range.Font.ColorIndex = wdRed
    Case Else
        Selection.Range.Font.ColorIndex = wdAuto
    End Select

End Sub

Mas não este (Caso RGB (0,176,240) não é reconhecido)

  Select Case Selection.Range.Font.ColorIndex
    Case wdRed
        Selection.Range.Font.ColorIndex = wdPink
    Case wdPink
        Selection.Range.Font.ColorIndex = wdYellow
    Case wdYellow
        Selection.Range.Font.ColorIndex = wdBlue
     Case wdBlue
        Selection.Range.Font.TextColor.RGB = RGB(0, 176, 240)
     Case RGB(0, 176, 240)
        Selection.Range.Font.TextColor.RGB = RGB(256, 176, 240)
    Case wdAuto
        Selection.Range.Font.ColorIndex = wdRed
    Case Else
        Selection.Range.Font.ColorIndex = wdAuto
    End Select

End Sub

Então eu tentei algo parecido, mas ainda sem sucesso (nada é reconhecido)

  Select Case Selection.Range.Font.TextColor.RGB
    Case RGB(255, 0, 0)
        Selection.Range.Font.TextColor.RGB = RGB(1, 255, 1)
    Case RGB(1, 255, 1)
        Selection.Range.Font.TextColor.RGB = RGB(0, 0, 0)
    Case RGB(0, 0, 0)
        Selection.Range.Font.TextColor.RGB = RGB(255, 0, 0)
    Case Else
        Selection.Range.Font.ColorIndex = RGB(0, 0, 0)
    End Select

End Sub

    

Answer 1

Infelizmente, não sei de um atalho existente para fazer isso.

Felizmente, eu estava suficientemente frustrado por não haver um atalho para fazer isso, que eu escrevi uma macro para fazer isso por mim:

Sub RotateHighlight()
'
' Rotates highlighting of selected text between:
'   None, yellow, green, blue, red, pink, none, yellow, green, ...
'
' If the selected text is highlighted with anything other than these colors,
'  the highlight is removed.  Also, if the selection includes text whose
'  highlighting is not uniform, all highlighting is removed from the selection.
'

    Select Case Selection.Range.HighlightColorIndex
    Case wdYellow
        Selection.Range.HighlightColorIndex = wdBrightGreen
    Case wdBrightGreen
        Selection.Range.HighlightColorIndex = wdTurquoise
    Case wdTurquoise
        Selection.Range.HighlightColorIndex = wdRed
    Case wdRed
        Selection.Range.HighlightColorIndex = wdPink
    Case wdNoHighlight
        Selection.Range.HighlightColorIndex = wdYellow
    Case Else
        Selection.Range.HighlightColorIndex = wdNoHighlight
    End Select

End Sub

Para disponibilizar essa macro como um atalho de teclado sempre que estiver trabalhando no Word, abra o editor de VBA (Abra qualquer documento do Word e pressione Alt-F11) e crie um módulo de código no modelo Normal:

Copie/coleocódigoacimanomódulorecém-criadoesalvecomCtrl-S.FecheoeditordoVBA.

NoWord,cliquenopequenotriângulodesetaparabaixocomabarrasobreadireitadaBarradeFerramentasdeAcessoRápidoeselecione"Mais Comandos":

Nacaixadediálogoresultante,selecione"Personalizar Faixa de Opções" na lista à esquerda e clique em "Personalizar" ao lado de "Atalhos de teclado" na parte inferior:

Oseguintediálogodeveaparecer:

Em "Categorias", role até o final e selecione "Macros". Em 'Macros', selecione 'RotateHighlight'. (A menos que você já seja um programador de VBA, o RotateHighlight provavelmente será o único item em 'Macros' aqui.) Clique em 'Press new newcut key' e pressione a combinação de teclas de atalho desejada. Eu pessoalmente gosto de configurá-lo para Ctrl-Alt-Shift-H. Certifique-se de que diz "[não atribuído]" junto a "Atualmente atribuído a:" e, em seguida, clique em "Atribuir" na parte inferior. 'Fechar' quando terminar e testar!

Para seus objetivos, selecione o texto do qual deseja remover o realce, além de algum texto adicional sem destaque ao redor dele e, em seguida, execute a macro. Isso deve limpar todos os realces na seleção.

    

Answer 2

Este está trabalhando

  Select Case Selection.Range.Font.TextColor.RGB
    Case RGB(0, 0, 0) 'black
        Selection.Range.Font.TextColor.RGB = RGB(255, 0, 0) 'red
    Case RGB(255, 0, 0) 'red
        Selection.Range.Font.TextColor.RGB = RGB(255, 102, 178) 'pink
    Case RGB(255, 102, 178)
        Selection.Range.Font.TextColor.RGB = RGB(51, 153, 255) 'blue ciel
    Case RGB(51, 153, 255)
        Selection.Range.Font.TextColor.RGB = RGB(178, 102, 255) 'violet
    Case RGB(178, 102, 255)
        Selection.Range.Font.TextColor.RGB = RGB(102, 204, 0) 'Green
    Case RGB(102, 204, 0)
        Selection.Range.Font.TextColor.RGB = RGB(0, 0, 0) 'black
    Case Else
        Selection.Range.Font.TextColor.RGB = RGB(0, 0, 0) 'black
    End Select

End Sub

    

Answer 3

Você pode selecionar o documento inteiro? Se puder, faça isso e clique em “Realçar” → “Sem cor”.

Ou, se você preferir o teclado, use Alt H N .

    

Answer 4

Eu usei o seguinte código em uma macro para remover destaques em qualquer cor e atribui a ela uma tecla de atalho Alt + N:

Selection.Range.HighlightColorIndex = wdNoHighlight
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub