Neste artigo, queremos compartilhar com você 2 maneiras rápidas de pesquisar todos os textos sublinhados em seu documento do Word.
Uma alta ocorrência de sublinhados em um documento do Word não é incomum. Portanto, muitas demandas relacionadas à aplicação de sublinhados continuam surgindo. Agora vamos dar uma olhada em tais pedidos.
- Encontre os espaços sublinhados. Você pode se sentir perdido no primeiro pensamento. Mas, você pode pensar assim que, ao preencher uma prova em um documento do Word, você precisará pesquisar no arquivo para ver se há alguma questão sem resposta.
- Altere uma maneira de percorrer os textos. Você pode destacar os textos sublinhando-os. No entanto, também existem outros meios, como aplicar textos com estilo de fonte itálico.
- Altere a cor do sublinhado. Você pode modificar a cor do sublinhado para torná-lo mais atraente.
Para atender aos requisitos acima, há uma etapa compartilhada que é procurar sublinhados primeiro. E aqui estão nossos 2 métodos:
Método 1: Use a opção “Localização avançada”
- Para começar, clique na aba “Início”.
- Em seguida, clique no botão de triângulo invertido atrás de "Localizar".
- Em seguida, escolha “Localização avançada”.

- Na caixa de diálogo "Localizar e substituir", clique no botão "Formatar".
- Em seguida, escolha “Fonte”.
- Na caixa “Find Font”, escolha o estilo de sublinhado empregado em seu documento e clique em “OK”.
- Agora escolha clicar em “Find In” e depois em “Main Document” ou continue clicando em “Find Next”. O primeiro selecionará todos os sublinhados no documento, enquanto o último o levará a percorrer os sublinhados um por um.
A propósito, caso queira pular as etapas 4 a 6, você pode usar atalhos. O "Ctrl+U” refere-se a sublinhado simples e “Ctrl+Shift+D”, o duplo sublinhado.
Método 2: Executar a Macro do Word
- Primeiramente, clique na aba “Desenvolvedor” e depois em “Visual Basic” para acionar o editor VBA. Uma forma alternativa é pressionar “Alt+F11”.
- Em seguida, clique em “Normal”.
- Em seguida, clique na guia "Inserir" e escolha "Módulo".
- Agora você inseriu com sucesso um novo módulo no projeto “Normal”. Clique duas vezes no novo módulo para abrir a área de edição.
- Em seguida cole os seguintes códigos lá:
Sub FindUnderlineInDoc()
Dim objDoc As Document
Dim objRange As Range
Set objDoc = ActiveDocument
Set objRange = objDoc.Range
objRange.Find.ClearFormatting
objRange.Find.Font.Underline = wdUnderlineSingle
With Selection.Find
.text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.Execute
End With
End Sub
- Por fim, pressione o botão "Executar".
Observação:
Linha de código “objRange.Find.Font.Underline = wdUnderlineSingle” significa que esta macro encontrará sublinhado único. Então, para encontrar o sublinhado com outros estilos, você precisa substituir o “wdSublinhadoSingle” com outras constantes, que você pode encontrar mais aqui: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
Lidar com erros de palavras
Ao redigir seus relatórios, você já se deparou com um Palavra corrompida, perdendo assim o arquivo no qual você está trabalhando? Tal cenário é o mínimo que esperaríamos. No entanto, isso acontece e pode ser um golpe devastador para a carreira. Portanto, para economizar seu tempo e sua carreira, você também precisa de um profissional para reparar seu programa Word.
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 correção de xls e pdf reparar produtos de software. Para mais informações visite www.datanumen.com





