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

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

Općenito govoreći, većina korisnika Worda prilično je upoznata s funkcijom "Pronađi i zamijeni" u softveru. Pomaže nam u skupnoj obradi cijelog dokumenta, što nam štedi puno vremena. Jeste li razmišljali o korištenju ove opcije u više dokumenata, poput svih datoteka u određenoj mapi?

Budući da uvijek postoji potreba za pretraživanjem i zamjenom sadržaja u nizu datoteka, bilo bi lijepo da se funkcija realizira. A naš način je korištenje makronaredbe. Pročitajte dalje kako biste saznali više pojedinosti.

Koraci za instalaciju i pokretanje makronaredbe

1. Prvo i najvažnije, stavite sve datoteke u jednu mapu i otvorite Word.
2. Zatim kliknite karticu "Razvojni programer".
3. Zatim kliknite "Visual Basic". Ili jednostavno pritisnite “Alt+ F11” za pokretanje VBA editora.
4. Zatim kliknite "Normalni" projekt.
5. Zatim kliknite karticu "Umetni", a zatim odaberite "Modul".
6. Sada ste uspješno umetnuli novi modul. Dvaput kliknite na njega da biste otvorili 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 "Pokreni".
9. Sada će se pojaviti okvir za unos. Unesite put mape u koju pohranjujete dokumente.
10. Zatim kliknite "OK" i pojavit će se drugi okvir. Unesite tekstove koje želite pronaći.
11. Nastavite klikati na “OK” kako biste otvorili treći okvir za unos u koji unosite zamjenske tekstove i tamo kliknite gumb “OK”. Makro će automatski zamijeniti sav sadržaj i spremiti promjenu.

Kao što vidite, ova vam makronaredba nudi 3 okvira za unos u koje možete unijeti putanju mape, tekstove za traženje i zamjenu. Dakle, možete dodijeliti gumb za ovu makronaredbu i dodati je na "Alatnu traku za brzi pristup" za ponovnu upotrebu.

Što se tiče dodjeljivanja gumba makronaredbi, možete pročitati ovaj članak: Kako ukloniti oblikovanje zalijepljenih tekstova s ​​makronaredbom i VBA u vašem Wordu

Zaštitite vrijedne podatke

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

Uvod za autora:

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