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

Como pesquisar e substituir texto em vários ficheiros do Word?

AutorAmanda Li Data de Modificação

Se tem dezenas de ficheiros do Word com conteúdo idêntico — como cabeçalhos, rodapés ou texto específico — e precisa de substituir esse conteúdo em todos os documentos, fazê-lo manualmente pode ser extremamente 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.

Localizar e Substituir textos em vários documentos do Word em simultâneo com código VBA
Substitua facilmente Localizar e Substituir textos diferentes em vários documentos em simultâneo com Kutools para Word

Localizar e Substituir textos em vários documentos do Word em simultâneo com código VBA

Este método mostra como usar código VBA para procurar e substituir conteúdos em vários documentos ao mesmo tempo.

  1. Prima Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
  2. Clique em «Inserir» > «Módulo» e 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. Prima F5 para executar o código.
  4. Na janela Procurar, selecione os documentos que deseja processar e clique em «OK».
    Janela de navegação
  5. Na caixa de entrada «Localizar», digite a palavra ou frase que pretende encontrar e clique em «OK».
    Caixa 'Localizar'
  6. Na caixa «Substituir por», introduza o texto de substituição e clique em «OK».
    Caixa 'Substituir por'
  7. Clique em «OK» na caixa de diálogo final do Microsoft Word.
    Caixa de diálogo de confirmação

Todas as ocorrências do texto especificado nos ficheiros do Word selecionados serão substituídas de uma só vez.

Substitua facilmente Localizar e Substituir textos diferentes em vários documentos em simultâneo com Kutools para Word

A funcionalidade «Localizar e Substituir em Lote» do Kutools for Word permite-lhe procurar e substituir vários elementos de texto em múltiplos documentos do Word — tudo numa única operação!

Kutools para Word

O Kutools para Word ajuda-o a realizar tarefas diárias com documentos de forma mais rápida, graças a ferramentas práticas integradas diretamente no Microsoft Word — sem necessidade de programação nem configuração complexa.

  • Redação, aperfeiçoamento, tradução e resumo com IA
  • Localizar e Substituir em Lote em todos os documentos
  • Combine e divida documentos do Word facilmente
  • Conversão em lote entre Word ↔ PDF
TransferirSaber mais
  1. Clique em «Kutools» > «Substituição em Lote».
    Botão Substituição em Lote
  2. Na caixa de diálogo Localizar e Substituir em Lote, configure as definições:
    1. Clique no botão «Adicionar Linha».
    2. Na nova linha:
      1. Introduza o texto que pretende localizar no campo «Localizar».
      2. Introduza o texto de substituição no campo «Substituir».
      3. Opcionalmente, especifique um Tipo de Pesquisa, a localização onde procurar e substituir, a cor de destaque e outras opções necessárias nas respetivas colunas.
    3. Clique no botão Botão Adicionar na secção «Tipo de Ficheiro» para adicionar ficheiros do Word ao lote.
    4. Clique em «Substituir» ou «Localizar».
      Dica:Repita os passos 1) e 2) para adicionar mais regras de localização e substituição.
      Configuração de Localizar e Substituir em Lote
  3. Feche a caixa de diálogo Localizar e Substituir em Lote assim que terminar.

Notas:

  • Ao clicar em «Localizar», as correspondências serão exibidas no separador «Pré-visualização do Resultado». Para aplicar as substituições posteriormente, regresse ao separador «Localizar e Substituir».
  • Se clicar em «Substituir», todas as correspondências serão substituídas imediatamente e apresentadas na «Pré-visualização do Resultado».
  • Se forem especificadas cores de destaque, as substituições nos seus documentos do Word serão codificadas por cores de acordo com essas definições.

Para saber mais sobre a funcionalidade «Localizar e Substituir em Lote»,consulte a página do tutorial.

Procura uma forma mais rápida de lidar com tarefas semelhantes no Word? Experimente o Kutools para Word e simplifique o seu trabalho diário.

TransferirSaber mais

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 fita
 
 

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