Sådan finder du og erstatter indholdet i flere Word-dokumenter

I dagens artikel er vi glade for at kunne informere dig om måden at finde og erstatte indhold i flere Word-dokumenter.

Generelt set er de fleste Word-brugere ret bekendt med funktionen "Søg og erstat" i softwaren. Den hjælper os med batchprocessen gennem hele dokumentet, hvilket sparer os en masse tid. Har du så overvejet at bruge denne mulighed i multidokumenter, f.eks. alle filer under en bestemt mappe?

Da der altid er behov for at søge og erstatte indhold i en batch af filer, ville det være rart at få funktionen realiseret. Og vores måde er at bruge makroen. Læs venligst videre for at finde ud af flere detaljer.

Trin til at installere og køre makro

1. Først og fremmest skal du lægge alle filer i én mappe og åbne Word.
2. Klik derefter på fanen "Udvikler".
3. Klik derefter på "Visual Basic". Eller tryk blot på "Alt+ F11" for at udløse VBA-editoren.
4. Klik derefter på “Normal” -projektet.
5. Klik derefter på fanen "Indsæt" og vælg derefter "Modul".
6. Nu har du indsat et nyt modul. Dobbeltklik på den for at åbne kodeplads.
7. Indsæt de bølgende koder der:

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. Til sidst skal du klikke på "Kør".
9. Nu vil der dukke en inputboks op. Indtast mappestien, hvor du gemmer dokumenter.
10. Klik derefter på "OK", og der er den anden boks. Indtast de tekster, du vil finde.
11. Fortsæt med at klikke på "OK" for at åbne den tredje indtastningsboks, hvor du indtaster de erstattende tekster og klikker på knappen "OK" der. Makroen vil automatisk erstatte alt indhold og gemme ændringen.

Som du kan se, giver denne makro dig 3 inputfelter, hvor du kan indtaste mappesti, finde og erstatte tekster. Så du kan tildele en knap til denne makro og tilføje den til "Quick Access Toolbar" til genbrug.

Med hensyn til, hvordan man tildeler en knap til en makro, kan du læse denne artikel: Sådan fjernes formateringen af ​​indsatte tekster med makro og VBA i dit ord

Beskyt værdifulde data

Der kan opstå fejl og problemer i Word. Som en konsekvens kan dyrebare dokumenter blive beskadiget. Mens man støder på doc skader, er det tilrådeligt at få fat i et professionelt gendannelsesværktøj for at hente dataene.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder xls skader og pdf produkter til reparation af software. For mere information besøg www.datanumen.com