Come trovare e sostituire i contenuti in più documenti di Word

Nell'articolo di oggi, siamo entusiasti di informarti su come trovare e sostituire i contenuti in più documenti Word.

In generale, la maggior parte degli utenti di Word ha familiarità con la funzione "Trova e sostituisci" del programma. Questa funzione ci aiuta a effettuare operazioni in blocco sull'intero documento, risparmiandoci molto tempo. Ma avete mai pensato di utilizzare questa opzione anche con più documenti, ad esempio tutti i file contenuti in una cartella specifica?

Poiché c'è sempre la necessità di cercare e sostituire i contenuti in un batch di file, sarebbe bello realizzare la funzione. E il nostro modo è usare la macro. Continua a leggere per scoprire maggiori dettagli.

Passaggi per installare ed eseguire macro

1. Innanzitutto, inserisci tutti i file in una cartella e apri Word.
2. Quindi fare clic sulla scheda "Sviluppatore".
3. Quindi fai clic su "Visual Basic". Oppure premi semplicemente "Alt + F11" per attivare l'editor VBA.
4. Quindi fare clic su progetto "Normale".
5. Quindi fai clic sulla scheda "Inserisci" e quindi scegli "Modulo".
6. Ora hai inserito con successo un nuovo modulo. Fare doppio clic su di esso per aprire lo spazio di codifica.
7. Incolla lì i seguenti codici:

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. Infine, fai clic su "Esegui".
9. Ora apparirà una casella di input. Immettere il percorso della cartella in cui si archiviano i documenti.
10. Quindi fare clic su "OK" e c'è la seconda casella. Inserisci i testi che vuoi trovare.
11. Continua a fare clic su "OK" per aprire la terza casella di input, in cui inserisci i testi sostitutivi e fai clic sul pulsante "OK". La macro sostituirà automaticamente tutto il contenuto e salverà la modifica.

Come vedi, questa macro ti fornisce 3 caselle di input in cui puoi inserire il percorso della cartella, trovare e sostituire i testi. Quindi puoi assegnare un pulsante per questa macro e aggiungerlo alla "Barra di accesso rapido" per il riutilizzo.

Per quanto riguarda come assegnare un pulsante a una macro, puoi leggere questo articolo: Come rimuovere la formattazione dei testi incollati con macro e VBA in Your Word

Proteggi i dati preziosi

Errori e problemi possono verificarsi in Word. Di conseguenza, documenti preziosi possono essere danneggiati. Durante l'incontro con danni al documento, è consigliabile procurarsi uno strumento di recupero professionale per recuperare i dati.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui danni xls and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com