Como localizar e substituir conteúdo em vários documentos do Word

No artigo de hoje, temos o prazer de informá-lo sobre como localizar e substituir conteúdos em vários documentos do Word.

De modo geral, a maioria dos usuários do Word está bastante familiarizada com o recurso "Localizar e Substituir" do software. Ele nos ajuda a processar todo o documento em lote, o que economiza muito tempo. Mas você já pensou em usar essa opção em vários documentos, como todos os arquivos em uma pasta específica?

Como sempre há a necessidade de pesquisar e substituir conteúdos em um lote de arquivos, seria bom ter a função realizada. E o nosso jeito é usar a macro. Por favor, leia para saber mais detalhes.

Etapas para instalar e executar a macro

1. Em primeiro lugar, coloque todos os arquivos em uma única pasta e abra o Word.
2. Em seguida, clique na guia "Desenvolvedor".
3. Em seguida, clique em “Visual Basic”. Ou simplesmente pressione “Alt+F11” para acionar o editor VBA.
4. Em seguida, clique em projeto “Normal”.
5. Em seguida, clique na guia "Inserir" e escolha "Módulo".
6. Agora você inseriu com sucesso um novo módulo. Clique duas vezes nele para abrir o espaço de codificação.
7. Cole os códigos abaixo lá:

Sub FindAndReplaceInFolder()
  Dim objDoc As Document
  Dim strFile As String
  Dim strFolder As String
  Dim strFindText As String
  Dim strReplaceText As String
 
  '  Pop up input boxes for user to enter folder path, the finding and replacing texts.
  strFolder = InputBox("Enter folder path here:")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")
 
  '  Open each file in the folder to search and replace texts. Save and close the file after the action.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
    With objDoc
      With Selection
        .HomeKey Unit:=wdStory
        With Selection.Find
          .text = strFindText
          .Replacement.text = strReplaceText
          .Forward = True
          .Wrap = wdFindContinue
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
      End With
      objDoc.Save
      objDoc.Close
      strFile = Dir()
    End With
  Wend
End Sub

8. Por fim, clique em “Executar”.
9. Agora haverá uma caixa de entrada aparecendo. Insira o caminho da pasta onde você armazena os documentos.
10. Em seguida, clique em "OK" e há a segunda caixa. Digite os textos que deseja encontrar.
11. Continue a clicar em “OK” para abrir a terceira caixa de entrada, na qual você insere os textos de substituição e clique no botão “OK”. A macro substituirá automaticamente todo o conteúdo e salvará a alteração.

Como você pode ver, esta macro fornece 3 caixas de entrada onde você pode inserir o caminho da pasta, localizar e substituir textos. Assim, você pode atribuir um botão para esta macro e adicioná-lo à “Barra de Ferramentas de Acesso Rápido” para reutilização.

Quanto a como atribuir um botão a uma macro, você pode ler este artigo: Como remover a formatação de textos colados com macro e VBA no seu Word

Proteja dados valiosos

Erros e problemas podem ocorrer no Word. Como consequência, documentos preciosos podem ser danificados. Ao se deparar com danos do documento, é aconselhável obter uma ferramenta de recuperação profissional para recuperar os dados.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo danos xls e pdf reparar produtos de software. Para mais informações visite www.datanumen.com