Kako pronaći i zamijeniti sadržaj u više Word dokumenata

U današnjem članku s oduševljenjem vas obavještavamo o načinu pronalaženja i zamjene sadržaja u više Word dokumenata.

Generalno govoreći, većina korisnika Worda je prilično upoznata sa funkcijom "Pronađi i zamijeni" u softveru. Ona nam pomaže u grupnoj obradi cijelog dokumenta, što nam štedi mnogo vremena. Jeste li razmišljali o korištenju ove opcije u više dokumenata, kao što su sve datoteke u određenoj mapi?

Budući da uvijek postoji potreba za pretraživanjem i zamjenom sadržaja u grupi datoteka, bilo bi lijepo da se ova funkcija realizuje. A naš način je da koristimo makro. Pročitajte dalje kako biste saznali više detalja.

Koraci za instaliranje i pokretanje makroa

1. Prvo i najvažnije, stavite sve datoteke u jednu mapu i otvorite Word.
2. Zatim kliknite na karticu "Developer".
3. Zatim kliknite na "Visual Basic". Ili jednostavno pritisnite “Alt+ F11” da pokrenete VBA editor.
4. Zatim kliknite na "Normalni" projekat.
5. Zatim kliknite na karticu "Insert", a zatim odaberite "Module".
6. Sada ste uspješno ubacili novi modul. Dvaput kliknite na njega da otvorite prostor za kodiranje.
7. Tamo zalijepite sljedeće kodove:

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. Na kraju, kliknite na “Run”.
9. Sada će se pojaviti okvir za unos. Unesite putanju fascikle u kojoj pohranjujete dokumente.
10. Zatim kliknite na “OK” i tu je drugi okvir. Unesite tekstove koje želite pronaći.
11. Nastavite da kliknete na “OK” da otvorite treći okvir za unos u koji unosite zamjenske tekstove i kliknite na dugme “OK”. Makro će automatski zamijeniti sav sadržaj i sačuvati promjenu.

Kao što vidite, ovaj makro vam pruža 3 polja za unos u koja možete uneti putanju fascikle, pronaći i zameniti tekstove. Dakle, možete dodijeliti dugme za ovaj makro i dodati ga na "traku sa alatima za brzi pristup" za ponovnu upotrebu.

Što se tiče toga kako dodijeliti gumb makrou, možete pročitati ovaj članak: Kako ukloniti formatiranje zalijepljenih tekstova pomoću makroa i VBA u Wordu

Zaštitite vrijedne podatke

U Wordu se mogu pojaviti greške i problemi. Kao posljedica toga, dragocjeni dokumenti se mogu oštetiti. Prilikom susreta sa doc oštećenja, preporučljivo je nabaviti profesionalni alat za oporavak kako biste dohvatili podatke.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xls šteta i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com