Ir para o conteúdo principal

Como pesquisar e substituir vários arquivos no Word?

Se você tiver várias dezenas de arquivos de palavras com o mesmo conteúdo (como cabeçalho, rodapé, algumas palavras ou números especiais) e precisar substituir o mesmo conteúdo nesses documentos no Word. Como seria mais fácil para você fazer isso rapidamente? Certamente, você pode abrir esses arquivos um por um para substituir o mesmo conteúdo, mas será demorado e problemático. Este tutorial mostrará uma maneira complicada de substituir o mesmo conteúdo em vários documentos no Word de uma vez.

Encontre e substitua textos em documentos de várias palavras ao mesmo tempo com o 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 documentos de várias palavras ao mesmo tempo com o código VBA

1. Pressione outro + F11 para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique em inserçãoMóduloe, em seguida, copie o seguinte código VBA na janela Módulo.

Código VBA: pesquisar e substituir o mesmo conteúdo em vários documentos ao mesmo tempo

Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
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  'Find What
            .Replacement.Text = xReplaceStr  'Replace With
            .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
        Application.Run macroname:="NEWMACROS"
        ActiveDocument.Save
        ActiveWindow.Close
    Next
    Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub

3. aperte o F5 chave para executar o código.

4. Na abertura Procurar janela, por favor encontre e selecione os documentos que você irá encontrar e substitua o texto dentro, e então clique no OK botão. Veja a imagem:

5. No primeiro Kutools for Word caixa de diálogo, digite o texto que você encontrará nos documentos no Encontre o que e, em seguida, clique no OK botão.

6. Na segunda Kutools for Word caixa de diálogo, digite o texto que você substituirá e clique no OK botão.

8. Clique na OK botão no próximo Microsoft Word caixa de diálogo para concluir a localização e substituição.

Nesse caso, todas as palavras "Word" nos documentos selecionados são substituídas por "Excel" ao mesmo tempo.


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

Aqui recomendo fortemente o Localização e substituição em lote característica de Kutools for Word. Com esse recurso, você pode localizar e substituir facilmente textos diferentes em vários documentos do Word ao mesmo tempo. Vamos ver como aplicar esse recurso para localizar e substituir textos em documentos.

Kutools for Word : com mais de 100 suplementos úteis do Word, livre para tentar sem limitação em 60 dias.

1. Clique em Kutools Plus > Localização e substituição em lote para habilitar o recurso.

2. No Localização e substituição em lote caixa de diálogo, configure como segue.

  • 2.1) Clique no Adicionar linha botão sob o Localizar e substituir aba;
  • 2.2) Nos campos da linha criada:
A. Digite o texto que você encontrará na caixa de texto no Encontre coluna
B. Digite o texto que você substituirá na caixa de texto no Substituir coluna;
C. Especifique um tipo de pesquisa, onde encontrar o texto e uma cor para realçar o texto conforme necessário. Neste caso, eu seleciono Correspondência de palavras completas, Documento principal e uma certa cor do Tipo de busca, Encontre em e Destaques colunas;
  • 2.3) Repita os passos 2.1 e 2.2 para adicionar mais textos que você vai encontrar e substituir;
  • 2.4) Clique no  botão no Tipo de arquivo seção para adicionar os documentos do Word nos quais você vai encontrar e substituir textos;
  • 2.5) Clique no Substituir or Encontre botão. Veja a imagem:

Notas:
1. Se você clicar no Encontre botão, todos os resultados encontrados serão exibidos sob o Resultado da Antevisão aba. Depois de visualizar os resultados, se você deseja substituir todos os textos, clique no Localizar e substituir aba. Caso contrário, feche a caixa de diálogo.

2. Se você clicar no Substituir botão, todos os textos especificados serão substituídos por novos imediatamente, e os resultados também serão exibidos sob o Resultado da Antevisão aba.

3. Se você especificar as cores de destaque na etapa 2, todos os textos substituídos serão destacados com as cores especificadas e você pode encontrá-los facilmente em um relance nos documentos.

3. Feche o Localização e substituição em lote caixa de diálogo

Para obter mais informações sobre este recurso, por favor clique aqui ....

Se você deseja ter um teste gratuito deste utilitário, vá para baixe gratuitamente o software primeiro e, em seguida, aplique a operação de acordo com as etapas acima.

Melhores ferramentas de produtividade de escritório

Kutools for Word - Eleve sua experiência com palavras com mais 100 Recursos notáveis!

Mergulhe nos recursos destacados abaixo ou clique aqui para explorar todo o poder do Kutools for Word.

📘 Domínio de documentos: Páginas divididas  /  Mesclar Documentos  /  Seleção de exportação em vários formatos (PDF/TXT/DOC/XLSX)  /  Conversão em lote para PDF  /  Exportar páginas como imagens  /  Imprima vários arquivos de uma vez ...

Edição de conteúdo: Localização e substituição em lote em vários arquivos   /  Redimensionar todas as imagens   /  Transpor linhas e colunas da tabela  /  Converter tabela em texto ...

🧹 Limpeza sem esforçoVarrer Espaços extras  /  Quebras de seção  /   Todos os cabeçalhos  /  Caixas de Texto  /  hiperlinks  /  Para obter mais ferramentas de remoção, acesse nosso Grupo de remoção

Inserções criativas: inserção Mil Separadores  /  Caixas de seleção  /  botões de rádio  /  QR Code  /  Código de barras  /  Tabela de linhas diagonais  /  Legenda da equação  /  Legenda da Imagem  /  Legenda da Tabela  /  Várias fotos  /  Descubra mais em nosso Grupo Inserir

🔍 Seleções de precisão: Identifique páginas específicas  /  tabelas  /  formas  /  parágrafos de título  /  Navegue com facilidade usando nosso Select Group

Aprimoramentos de estrelas: Navegue rapidamente para qualquer local  /  inserir automaticamente texto repetitivo  /  alternar perfeitamente entre janelas de documentos  /  11 ferramentas de conversão ...

Transforme suas tarefas do Word com o Kutools. 👉 Baixe agora com teste de 30 dias 🚀.

 
Comments (70)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
thanks for -How To Search And Replace Across Multiple Files In Word?

what about from out side (by folder) ?

thanks gain
This comment was minimized by the moderator on the site
This is a great explanation.  Is there a way to change settings, e.g. page size, simultaneously? 
This comment was minimized by the moderator on the site
After pressing F5, I get the following error" "Compile error: User-defined type not defined." Can someone help?
This comment was minimized by the moderator on the site
Hi Monique,Please check if the Microsoft Office Object Library is enabled as shown in the screenshot below.
This comment was minimized by the moderator on the site
This is SUCH a time saving solution. THANK YOU!
One thing that may make it even better, is adding support for subdirectories. (That is: Files in multiple subdirectories)
I am an absolute newbie in this, and don't know the syntax, the parameter, or where to add that.

Could somebody help?
This comment was minimized by the moderator on the site
I need to replace text in multiple Word files and have the replaced text highlighted. Is there a way to do this?
This comment was minimized by the moderator on the site
Hi Daphne,
Why not try the Batch Find and Replace feature of Kutools for Word? It can solve this issue with ease.
This comment was minimized by the moderator on the site
this was a lifesaver thank you so much
This comment was minimized by the moderator on the site
Is it possible to replace in the headers of the word doc?
This comment was minimized by the moderator on the site
Hi Tiago,
Please apply the below VBA code to include the content of headers and footers when finding and replacing texts in multiple documents at once.

Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
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 'Find What
.Replacement.Text = xReplaceStr 'Replace With
.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
Application.Run macroname:="NEWMACROS"
If MsgBox("Do you want to replace texts in headers and footers too? ", vbYesNo, "Kutools for Word") = vbYes Then
ActiveWindow.View.SplitSpecial = wdPanePrimaryFooter
Selection.Find.Execute Replace:=wdReplaceAll
Application.Run macroname:="NEWMACROS"
ActiveWindow.View.SplitSpecial = wdPanePrimaryHeader
Selection.Find.Execute Replace:=wdReplaceAll
Application.Run macroname:="NEWMACROS"
End If
ActiveDocument.Save
ActiveWindow.Close
Next
Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub
This comment was minimized by the moderator on the site
Is that possible to replace in the header of the word doc?
This comment was minimized by the moderator on the site
Thanks for sharing this information with us.
Word search and replace tool
This comment was minimized by the moderator on the site
Works perfectly but is there a similar macro to change text in the header! because this does not work with this version!
thanks
This comment was minimized by the moderator on the site
Hi,
Please apply the below VBA code to include the content of headers and footers when finding and replacing texts in multiple documents at once.

Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
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 'Find What
.Replacement.Text = xReplaceStr 'Replace With
.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
Application.Run macroname:="NEWMACROS"
If MsgBox("Do you want to replace texts in headers and footers too? ", vbYesNo, "Kutools for Word") = vbYes Then
ActiveWindow.View.SplitSpecial = wdPanePrimaryFooter
Selection.Find.Execute Replace:=wdReplaceAll
Application.Run macroname:="NEWMACROS"
ActiveWindow.View.SplitSpecial = wdPanePrimaryHeader
Selection.Find.Execute Replace:=wdReplaceAll
Application.Run macroname:="NEWMACROS"
End If
ActiveDocument.Save
ActiveWindow.Close
Next
Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub
This comment was minimized by the moderator on the site
Oh yeah! Thank you sooooo much! This is a life-saver!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations