Ako nájsť a nahradiť obsah vo viacerých dokumentoch programu Word

V dnešnom článku vás s radosťou informujeme o spôsobe vyhľadania a nahradenia obsahu vo viacerých dokumentoch programu Word.

Vo všeobecnosti je väčšina používateľov programu Word celkom dobre oboznámená s funkciou „Nájsť a nahradiť“ v tomto softvéri. Pomáha nám s dávkovým spracovaním celého dokumentu, čo nám šetrí veľa času. Premýšľali ste už o použití tejto možnosti vo viacerých dokumentoch, napríklad vo všetkých súboroch v konkrétnom priečinku?

Pretože vždy existuje potreba prehľadávať a nahrádzať obsah v dávke súborov, bolo by pekné mať túto funkciu zrealizovanú. A našou cestou je použiť makro. Ak sa chcete dozvedieť viac podrobností, prečítajte si ďalej.

Kroky na inštaláciu a spustenie makra

1. V prvom rade vložte všetky súbory do jedného priečinka a otvorte program Word.
2. Potom kliknite na kartu Vývojár.
3. Ďalej kliknite na „Visual Basic“. Alebo jednoducho stlačte „Alt + F11“, čím spustíte editor VBA.
4. Potom kliknite na „Normálny“ projekt.
5. Ďalej kliknite na kartu „Vložiť“ a potom vyberte „Modul“.
6. Teraz ste úspešne vložili nový modul. Dvojitým kliknutím naň otvoríte kódovací priestor.
7. Vložte nasledujúce kódy:

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. Nakoniec kliknite na tlačidlo „Spustiť“.
9. Teraz sa objaví vyskakovacie vstupné pole. Zadajte cestu k priečinku, do ktorého ukladáte dokumenty.
10. Potom kliknite na „OK“ a je tu druhé políčko. Zadajte texty, ktoré chcete nájsť.
11. Pokračujte v klikaní na „OK“, aby ste otvorili tretie vstupné pole, do ktorého zadáte nahrádzajúce texty a tam kliknite na tlačidlo „OK“. Makro automaticky nahradí všetok obsah a uloží zmenu.

Ako vidíte, toto makro vám poskytuje 3 vstupné polia, kde môžete zadať cestu k priečinku, nájsť a nahradiť texty. K tomuto makru môžete priradiť tlačidlo a pridať ho na „Panel nástrojov Rýchly prístup“ na ďalšie použitie.

Informácie o tom, ako priradiť tlačidlo k makru, si môžete prečítať v tomto článku: Ako odstrániť formátovanie vložených textov pomocou makra a VBA vo vašom slove

Chráňte cenné dáta

V programe Word sa môžu vyskytnúť chyby a problémy. V dôsledku toho sa môžu vzácne dokumenty poškodiť. Pri stretnutí s poškodenie dok, je vhodné sa zmocniť profesionálneho nástroja na obnovenie, aby ste mohli dáta načítať.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane xls poškodenie a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S