Kako najti in zamenjati vsebino v več Wordovih dokumentih

V današnjem članku vas z veseljem obveščamo o načinu iskanja in zamenjave vsebine v več Wordovih dokumentih.

Na splošno je večina uporabnikov programa Word precej seznanjena s funkcijo »Najdi in zamenjaj« v programski opremi. Pomaga nam pri paketnem obdelavi celotnega dokumenta, kar nam prihrani veliko časa. Ste potem pomislili na uporabo te možnosti v več dokumentih, na primer za vse datoteke v določeni mapi?

Ker vedno obstaja potreba po iskanju in zamenjavi vsebine v paketu datotek, bi bilo lepo, če bi bila funkcija realizirana. In naš način je uporaba makra. Preberite, če želite izvedeti več podrobnosti.

Koraki za namestitev in zagon makra

1. Najprej in predvsem, vse datoteke shranite v eno mapo in odprite Word.
2. Nato kliknite zavihek »Razvijalec«.
3. Nato kliknite »Visual Basic«. Ali preprosto pritisnite »Alt + F11«, da sprožite urejevalnik VBA.
4. Nato kliknite »Normal« projekt.
5. Nato kliknite zavihek »Vstavi« in izberite »Modul«.
6. Zdaj ste uspešno vstavili nov modul. Dvokliknite nanjo, da odprete prostor za kodiranje.
7. Tja prilepite spodnje kode:

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 koncu kliknite »Zaženi«.
9. Zdaj se bo pojavilo polje za vnos. Vnesite pot do mape, kamor shranjujete dokumente.
10. Nato kliknite »V redu« in prikazalo se bo drugo polje. Vnesite besedila, ki jih želite najti.
11. Nadaljujte s klikom »V redu«, da odprete tretje polje za vnos, v katerega vnesete nadomestna besedila in tam kliknete gumb »V redu«. Makro bo samodejno zamenjal vso vsebino in shranil spremembo.

Kot vidite, vam ta makro ponuja 3 vnosna polja, v katera lahko vnesete pot do mape, besedila za iskanje in zamenjavo. Tako lahko temu makru dodelite gumb in ga dodate v »Orodno vrstico za hitri dostop« za ponovno uporabo.

O tem, kako makru dodeliti gumb, lahko preberete ta članek: Kako odstraniti oblikovanje prilepljenih besedil z makro in VBA v besedi

Zaščitite dragocene podatke

V Wordu se lahko pojavijo napake in težave. Posledično se lahko dragoceni dokumenti poškodujejo. Ob srečanju z doc škoda, je priporočljivo, da dobite profesionalno orodje za obnovitev, da pridobite podatke.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z xls škoda in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com