Inhoud zoeken en vervangen in meerdere Word-documenten

In het artikel van vandaag informeren we u graag over de manier waarop u inhoud in meerdere Word-documenten kunt vinden en vervangen.

Over het algemeen zijn de meeste Word-gebruikers wel bekend met de functie 'Zoeken en vervangen'. Deze functie helpt ons bij het批量 doorvoeren van wijzigingen in het hele document, wat ons veel tijd bespaart. Maar heb je er wel eens aan gedacht om deze optie te gebruiken voor meerdere documenten, bijvoorbeeld alle bestanden in een specifieke map?

Omdat het altijd nodig is om inhoud in een batch bestanden te zoeken en te vervangen, zou het fijn zijn als de functie gerealiseerd zou zijn. En onze manier is om de macro te gebruiken. Lees verder voor meer details.

Stappen om macro te installeren en uit te voeren

1. Plaats allereerst alle bestanden in één map en open vervolgens Word.
2. Klik vervolgens op het tabblad "Ontwikkelaar".
3. Klik vervolgens op "Visual Basic". Of druk gewoon op "Alt + F11" om de VBA-editor te activeren.
4. Klik vervolgens op "Normaal" project.
5. Klik vervolgens op het tabblad "Invoegen" en kies vervolgens "Module".
6. Nu heb je met succes een nieuwe module ingevoegd. Dubbelklik erop om de coderingsruimte te openen.
7. Plak daar de balgcodes:

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. Klik ten slotte op "Uitvoeren".
9. Nu zal er een invoerveld verschijnen. Voer het mappad in waar u documenten opslaat.
10. Klik vervolgens op "OK" en daar is het tweede vak. Voer de teksten in die u zoekt.
11. Blijf op "OK" klikken om het derde invoerveld te openen, waarin u de vervangende teksten invoert en daar op de knop "OK" klikt. De macro zal automatisch alle inhoud vervangen en de wijziging opslaan.

Zoals u ziet, biedt deze macro u 3 invoervakken waarin u het mappad, de tekst zoeken en vervangen kunt invoeren. U kunt dus een knop aan deze macro toewijzen en deze toevoegen aan de "werkbalk Snelle toegang" voor hergebruik.

Voor meer informatie over het toewijzen van een knop aan een macro, kunt u dit artikel lezen: Hoe u de opmaak van geplakte teksten met macro en VBA in uw Word kunt verwijderen

Bescherm waardevolle gegevens

In Word kunnen fouten en problemen optreden. Als gevolg hiervan kunnen kostbare documenten beschadigd raken. Tijdens een ontmoeting met doc schade, is het raadzaam om een ​​professionele hersteltool aan te schaffen om de gegevens op te halen.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder xls schade en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com