Como pesquisar e substituir em vários arquivos no Word?
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.
- Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
- 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
- Pressione F5 para executar o código.
- Na janela Procurar, selecione os documentos que deseja processar e clique em "OK".
- Na caixa de entrada "Localizar o que", digite a palavra ou frase que deseja encontrar e clique em "OK".
- Na caixa de entrada "Substituir por", insira o texto de substituição e clique em "OK".
- Clique em "OK" na última caixa de diálogo do Microsoft Word.
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.
- Clique em "Kutools" > "Substituição em Lote".
- No diálogo Substituição em Lote, configure as configurações:
- Clique no botão "Adicionar linha".
- Na nova linha:
- Digite o texto a ser encontrado em "Localizar".
- Digite o texto de substituição em "Substituir".
- Opcionalmente, especifique um tipo de pesquisa, local onde encontrar e substituir, cor de destaque e outras opções conforme necessário nas respectivas colunas.
- Clique no
botão na seção "Tipo de Arquivo" para adicionar arquivos do Word ao lote.
- Clique em "Substituir" ou "Localizar". Dica: Repita as etapas 1) e 2) para adicionar mais regras de localização e substituição.
- 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.
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