Si të gjeni dhe zëvendësoni përmbajtjen në dokumente të shumëfishta Word

Në artikullin e sotëm, ne jemi të kënaqur t'ju informojmë për mënyrën e gjetjes dhe zëvendësimit të përmbajtjeve në dokumente të shumta Word.

Në përgjithësi, shumica e përdoruesve të Word janë mjaft të njohur me funksionin "Gjej dhe zëvendëso" në softuer. Na ndihmon me procesin e përpunimit në grup të të gjithë dokumentit, gjë që na kursen shumë kohë. Atëherë, a keni menduar ta përdorni këtë opsion në shumë dokumente, si të gjitha skedarët në një dosje specifike?

Meqenëse ekziston gjithmonë nevoja për të kërkuar dhe zëvendësuar përmbajtjen në një grup skedarësh, do të ishte mirë që funksioni të realizohej. Dhe mënyra jonë është të përdorim makro. Ju lutemi lexoni për të mësuar më shumë detaje.

Hapat për të instaluar dhe ekzekutuar makro

1. Para së gjithash, vendosni të gjitha skedarët në një dosje dhe hapni Word-in.
2. Pastaj klikoni në skedën "Zhvilluesi".
3. Pastaj klikoni "Visual Basic". Ose thjesht shtypni "Alt+ F11" për të aktivizuar redaktorin VBA.
4. Pastaj klikoni projektin "Normal".
5. Pastaj klikoni në skedën "Fut" dhe më pas zgjidhni "Modul".
6. Tani ju keni futur me sukses një modul të ri. Klikoni dy herë mbi të për të hapur hapësirën e kodimit.
7. Ngjitni kodet e mëposhtme atje:

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. Së fundi, klikoni "Run".
9. Tani do të shfaqet një kuti hyrëse. Futni shtegun e dosjes ku ruani dokumentet.
10. Pastaj klikoni "OK" dhe aty është kutia e dytë. Futni tekstet që dëshironi të gjeni.
11. Vazhdoni të klikoni "OK" për të hapur kutinë e tretë të hyrjes, në të cilën futni tekstet zëvendësuese dhe klikoni butonin "OK" atje. Makro do të zëvendësojë automatikisht të gjitha përmbajtjet dhe do të ruajë ndryshimin.

Siç e shihni, kjo makro ju ofron 3 kuti hyrëse ku mund të futni rrugën e dosjes, gjetjen dhe zëvendësimin e teksteve. Kështu që mund të caktoni një buton për këtë makro dhe ta shtoni atë në "Shiritin e veglave të aksesit të shpejtë" për ripërdorim.

Sa për mënyrën e caktimit të një butoni në një makro, mund të lexoni këtë artikull: Si të hiqni formatimin e teksteve të ngjitura me makro dhe VBA në Word

Mbroni të dhënat e vlefshme

Gabimet dhe problemet mund të ndodhin në Word. Si pasojë, dokumentet e çmuara mund të dëmtohen. Gjatë ballafaqimit me dëmtimi i dokumentit, është e këshillueshme që të merrni në dorë një mjet rikuperimi profesional në mënyrë që të merrni të dhënat.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë xls dëmtim pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com