Skip to main content

Kutools para Office — Uma Suíte. Cinco Ferramentas. Aumente sua Produtividade.

Como pesquisar e substituir em vários arquivos no Word?

Author Amanda Li Last modified

Se você tiver dezenas de arquivos do Word contendo o mesmo conteúdo (como cabeçalhos, rodapés ou texto específico) e precisar substituir esse conteúdo em todos os documentos, fazer isso manualmente pode ser tedioso. Este tutorial apresenta dois métodos para substituir rapidamente o mesmo ou diferentes conteúdos em vários documentos do Word de uma só vez.

Encontre e substitua textos em vários documentos do Word ao mesmo tempo com código VBA
Encontre e substitua facilmente diferentes textos em vários documentos ao mesmo tempo com o Kutools for Word

Encontre e substitua textos em vários documentos do Word ao mesmo tempo com código VBA

Este método mostra como usar o código VBA para pesquisar e substituir conteúdo em vários documentos simultaneamente.

  1. Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
  2. Clique em "Inserir" > "Módulo", depois cole o seguinte código: 
    Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String
Dim xFindStr As String
Dim xReplaceStr As String
Dim xDoc As Document
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With xFileDialog
    .Filters.Clear
    .Filters.Add "All WORD File ", "*.docx", 1
    .AllowMultiSelect = True
    i = 1
    If .Show = -1 Then
        For Each stiSelectedItem In .SelectedItems
            GetStr(i) = stiSelectedItem
            i = i + 1
        Next
        i = i - 1
    End If
    Application.ScreenUpdating = False
    xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)
    xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)
    For j = 1 To i Step 1
        Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
        Windows(GetStr(j)).Activate
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = xFindStr
            .Replacement.Text = xReplaceStr
            .Forward = True
            .Wrap = wdFindAsk
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        ActiveDocument.Save
        ActiveWindow.Close
    Next
    Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub
  3. Pressione F5 para executar o código.
  4. Na janela Procurar, selecione os documentos que deseja processar e clique em "OK".
    Browse window
  5. Na caixa de entrada "Localizar o que", digite a palavra ou frase que deseja encontrar e clique em "OK".
    Find what box
  6. Na caixa de entrada "Substituir por", insira o texto de substituição e clique em "OK".
    Replace with box
  7. Clique em "OK" na última caixa de diálogo do Microsoft Word.
    Confirmation dialog

Todas as instâncias do texto especificado nos arquivos do Word selecionados serão substituídas de uma só vez.

Encontre e substitua facilmente diferentes textos em vários documentos ao mesmo tempo com o Kutools for Word

O recurso "Substituição em Lote" no Kutools for Word permite pesquisar e substituir vários itens de texto em vários documentos do Word de uma só vez.

Kutools para Word,equipado com IA 🤖, oferece mais de 100 recursos práticos para simplificar suas tarefas.
  1. Clique em "Kutools" > "Substituição em Lote".
    Batch Replacement button
  2. No diálogo Substituição em Lote, configure as configurações:
    1. Clique no botão "Adicionar linha".
    2. Na nova linha:
      1. Digite o texto a ser encontrado em "Localizar".
      2. Digite o texto de substituição em "Substituir".
      3. Opcionalmente, especifique um tipo de pesquisa, local onde encontrar e substituir, cor de destaque e outras opções conforme necessário nas respectivas colunas.
    3. Clique no Add button botão na seção "Tipo de Arquivo" para adicionar arquivos do Word ao lote.
    4. Clique em "Substituir" ou "Localizar".
      Dica: Repita as etapas 1) e 2) para adicionar mais regras de localização e substituição.
      Batch Find and Replace configuration
  3. Feche o diálogo Substituição em Lote quando terminar.

Notas:

  • Se você clicar em "Localizar", as correspondências aparecerão na aba "Visualizar Resultado". Para aplicar substituições posteriormente, volte para a aba "Localizar e Substituir".
  • Se você clicar em "Substituir", todas as correspondências serão imediatamente substituídas e mostradas em "Visualizar Resultado".
  • Se cores de destaque foram especificadas, as substituições nos seus documentos do Word serão codificadas por cores de acordo.

Para mais informações sobre o recurso "Substituição em Lote", veja a página do tutorial.

Kutools para Word é o complemento definitivo para o Word que simplifica seu trabalho e aprimora suas habilidades de processamento de documentos. Adquira agora!

Melhores Ferramentas de Produtividade para Office

Kutools for Word – Aprimore sua experiência no Word com mais de 100 recursos incríveis!

🤖 Funcionalidades de IA do Kutools: AI Assistant / 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...) / Converter em Lote para PDF...

✏ Edição de Corpo: Localizar e Substituir em Lote em múltiplos arquivos / Redimensionar todas as Imagens / Transpor Linhas e Colunas de Tabela / Converter Tabela para Texto...

🧹 Limpeza Fácil: Elimine Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de Remover, acesse o grupo Remover...

➕ Inserções Criativas: Inserir Delimitadores de Milhares / Caixas de Seleção / Botões de Rádio / Código QR / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...

🔍 Seleções Precisas: Localize Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos de Selecionar...

⭐ Melhorias Destacadas: Navegue para qualquer Intervalo / Insira Texto Repetitivo automaticamente / Alternar entre Janelas de Documento /11 ferramentas de Conversão...

🌍 Compatível com40+ Idiomas: Use Kutools no seu idioma preferido — compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Quer experimentar esses recursos? Baixe o Kutools for Word agora! 🚀
 

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

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

📦 Tenha todas as5 ferramentas em uma única suíte | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economize Tempo e aumente a produtividade imediatamente

Melhores Ferramentas de Produtividade para Office

Kutools for Word – 100+ ferramentas para Word

Download Gratuito Comprar Agora Saiba Mais sobre o Kutools