Neste artigo, vamos nos concentrar em explicar 2 maneiras rápidas de alterar em lote a cor de vários sublinhados em seu documento do Word.
Por padrão, a cor do sublinhado no Word é definida como “Automático”. Mas às vezes pode ser monótono. Portanto, tanto para diversificar a cor definida em seu documento, quanto para destacar os conteúdos importantes, é uma boa opção alterar a cor do sublinhado.
É fácil alterar a cor do sublinhado antes de criá-lo. Portanto, no conteúdo a seguir, gostaríamos de enfatizar a modificação da cor dos sublinhados existentes.
Método 1: Utilize o recurso “Localização avançada”
Em primeiro lugar, você precisa encontrar todas as ocorrências de sublinhado no documento atual. Para isso, você pode consultar nosso artigo anterior: 2 maneiras rápidas de pesquisar textos sublinhados em seu documento do Word
Depois de encontrar e ter todos os sublinhados na seleção, siga os seguintes passos:
- Basta clicar no botão de triângulo invertido atrás do ícone de sublinhado na guia "Página inicial".
- Em seguida, escolha uma cor de sua preferência no menu estendido de “cor de sublinhado”.
Aqui está a nossa demonstração em vídeo:
Método 2: Executar Macro do Word
A macro do Word é uma ferramenta incrível. Podemos não apenas usá-lo para pesquisar todos os sublinhados, mas também alterar a cor deles. E ambos os procedimentos podem ser finalizados em apenas uma macro.
- Para começar, ative a guia “Desenvolvedor” e clique nela.
- Em seguida, clique em “Visual Basic” no grupo “Code”.
- Em seguida, clique em “Normal”.
- Em seguida, clique na guia "Inserir".
- E selecione “Módulo” no menu.
- Clique duas vezes no novo módulo para abrir o espaço de edição.
- Agora cole os códigos abaixo lá:
Sub ChangeUnderlineColor()
Dim objDoc As Document
Dim objRange As Range
Set objDoc = ActiveDocument
Set objRange = objDoc.Range
objRange.Find.ClearFormatting
With objRange.Find
.Font.Underline = wdUnderlineSingle
.text = ""
.Replacement.text = ""
.Replacement.Font.UnderlineColor = wdColorBlue
.Execute Format:=True, Replace:=wdReplaceAll
End With
End Sub
- Por último, mas não menos importante, clique no botão “Executar”.
Notas:
- Em primeiro lugar, a linha de código “.Font.Underline = wdUnderlineSingle” significa que esta macro encontra apenas os sublinhados simples. Você pode alterar “wdUnderlineSingle” para “wdUnderlineDouble”, “wdUnderlineThick”, etc. Para mais constantes de sublinhado, você pode visitar este link: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
- Em segundo lugar, a linha de código “.Replacement.Font.UnderlineColor = wdColorBlue” significa que a macro mudará a cor do sublinhado para azul. E para mais constantes de cores, você pode visitar: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor
Recuperar dados do Word comprometidos
A perda de dados no Word é altamente possível hoje em dia. Por exemplo, o erro mais comum que você encontrará no Word é o congelamento da tela. Certamente, você pode optar por reiniciar o programa. Às vezes, haverá uma versão salva automaticamente do documento em que você está trabalhando. No entanto, não podemos descartar ou nos dar ao luxo de perder o documento, seja total ou parcialmente. Portanto, devemos pensar em maneiras de recuperar os dados. E falando nisso, um profissional Reparação de palavras ferramenta é a chave para o seu sucesso.
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 ferramentas para reparar xls danificados e pdf reparar produtos de software. Para mais informações visite www.datanumen.com