Como encontrar e destacar parágrafos duplicados em um Documento do Word?
Suponha que você tenha um Documento do Word grande, com centenas de páginas, e agora deseja verificar se há parágrafos duplicados e destacá-los para torná-los mais visíveis, de modo que você possa lidar com as frases repetidas. Como você poderia encontrar e destacar os parágrafos duplicados de forma rápida e fácil no Documento do Word?
Encontrar e destacar parágrafos duplicados no Documento do Word com código VBA
Encontrar e destacar parágrafos duplicados no Documento do Word com código VBA
Para encontrar e destacar parágrafos duplicados em um Documento do Word, o seguinte código VBA pode ajudá-lo; por favor, siga estas instruções:
1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Em seguida, clique em Inserir > Módulo, copie e cole o código abaixo no módulo em branco aberto:
Código VBA: Encontrar e destacar parágrafos duplicados no Documento do Word:
Sub highlightdup()
Dim I, J As Long
Dim xRngFind, xRng As Range
Dim xStrFind, xStr As String
Options.DefaultHighlightColorIndex = wdYellow
Application.ScreenUpdating = False
With ActiveDocument
For I = 1 To .Paragraphs.Count - 1
Set xRngFind = .Paragraphs(I).Range
If xRngFind.HighlightColorIndex <> wdYellow Then
For J = I + 1 To .Paragraphs.Count
Set xRng = .Paragraphs(J).Range
If xRngFind.Text = xRng.Text Then
xRngFind.HighlightColorIndex = wdBrightGreen
xRng.HighlightColorIndex = wdYellow
End If
Next
End If
Next
End With
End Sub
3. Depois, pressione a tecla F5 para executar este código; todas as frases duplicadas serão destacadas imediatamente. Os primeiros parágrafos duplicados exibidos são destacados com a cor verde, e os outros duplicados são destacados com a cor amarela, veja a captura de tela:
Melhores Ferramentas de Produtividade para Office
Kutools para Word – Eleve sua experiência no Word com mais de 100 recursos incríveis!
🤖 Recursos de IA do Kutools: Assistente de IA / Assistente em Tempo Real / Super Polir (Preserva Formato) / Super Traduzir (Preserva Formato) / Redação por IA / Revisão por IA...
📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Diversos Formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...
✏ Edição de Conteúdo: Localizar e Substituir em Lote em Vários Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...
🧹 Limpeza Sem Esforço: Elimine Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de remoção, acesse o grupo Remover...
➕ Inserções Criativas: Inserir Separadores de Milhar / Caixas de Seleção / Botões de Rádio / QR Code / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...
🔍 Seleções Precisas: Identifique Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos de Selecionar...
⭐ Melhorias Estrela: Navegue para Qualquer Localização / Insira Texto Repetitivo Automaticamente / Alterne Entre Janelas de Documentos /11 Ferramentas de Conversão...

Melhores Ferramentas de Produtividade para Office
Kutools para Word – 100+ Ferramentas para Word
- 🤖 Recursos de IA do Kutools: Assistente de IA / Assistente em Tempo Real / Super Polir / Super Traduzir / Redação por IA / Revisão por IA
- 📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Converter em Lote para PDF
- ✏ Edição de Conteúdo: Localizar e Substituir em Lote / Redimensionar Todas as Imagens
- 🧹 Limpeza Sem Esforço: Remover Espaços Extras / Remover Quebras de Seção
- ➕ Inserções Criativas: Inserir Separadores de Milhar / Inserir Caixas de Seleção / Criar QR Codes