KutoolsforOffice — Uma solução, cinco ferramentas poderosas.Fazer mais com menos esforço.

Como encontrar e destacar parágrafos duplicados num documento do Word?

AutorXiaoyang Data de Modificação

Suponha que tem um documento do Word extenso, com possivelmente centenas de páginas, e pretende identificar parágrafos duplicados, realçando-os para facilitar a sua revisão e tratamento. Como pode encontrar e destacar rapidamente esses parágrafos repetidos num documento do Word?

Encontrar e realçar parágrafos duplicados num documento do Word com código VBA

Encontrar e realçar parágrafos duplicados num documento do Word com código VBA

Para localizar e destacar parágrafos duplicados num documento do Word, o código VBA seguinte pode ajudá-lo. Siga estes passos:

1. Mantenha premidas as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Em seguida, clique em Inserir > Módulo e copie e cole o código seguinte no módulo em branco aberto:

Código VBA: Encontrar e realçar parágrafos duplicados num 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. Em seguida, prima a tecla F5 para executar este código. Todas as frases duplicadas serão imediatamente realçadas: os primeiros parágrafos duplicados aparecem destacados a verde e os restantes a amarelo. Veja a imagem:

Todas as frases duplicadas destacadas, com os primeiros parágrafos duplicados apresentados em destaque a verde e os restantes duplicados a amarelo

As Melhores Ferramentas de Produtividade para o Office

Kutools para Word – Potencie a sua experiência no Word com mais de 100 funcionalidades extraordinárias!

🤖Funcionalidades do KUTOOLS AI: Assistente de IA / Assistente em Tempo Real / Super Polir (Preservar Formato) / Super Traduzir (Preservar Formato) / Redação por IA / Revisão por IA…

📘Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Vários Formatos (PDF, TXT, DOC, HTML...) / Conversão em Lote para PDF...

✏Edição de Conteúdos: Localizar e Substituir em Lote em Múltiplos Ficheiros / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela em Texto...

🧹Limpeza sem Esforço: remova facilmente Espaços Extra, Quebras de Secção, Caixas de Texto e Hiperligações. Para mais ferramentas de remoção, aceda ao grupo Remover...

➕Inserções Criativas: Insira Separadores de Milhares, Caixa de Seleção, Botão de Rádio, Código QR, Código de Barras ou Múltiplas Imagens — descubra mais no grupo Inserir...

🔍Seleções Precisas: Selecione com precisão Páginas Específicas, Tabelas, Formas e Parágrafo de Título. Melhore a navegação com mais funcionalidades de seleçãofeatures ......

⭐Melhorias Estrela: Navegar para Qualquer Localização / Inserir Automaticamente Texto Repetitivo / Alternar entre Documentos do Windows / 11 Conversão Ferramentas de...

🌍Suporta mais de 40 idiomas: Utilize o Kutools na sua língua preferida – disponível em inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!

Kutools for Word separadores na faixa de opções
 
 

Office Tab– Traz a interface com separadores para o Office, tornando o seu trabalho muito mais fácil

  • Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie múltiplos documentos em novos separadores da mesma janela, em vez de em novas janelas.
  • Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato por dia!

✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!

Inclui Office Tab Pro·Kutools para Excel·Kutools para Outlook·Kutools para Word·Kutools for PowerPoint

📦 Obtenha todas as 5 ferramentas num único conjunto | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economizar Tempo e potencie imediatamente a produtividade

As Melhores Ferramentas de Produtividade para o Office

Kutools para Word– Ferramentas 100+ para o Word

Transferência GratuitaComprar AgoraSaber Mais sobre o Kutools