Çox Word Sənədlərində Məzmunu Necə Tapmaq və Dəyişmək olar

Bugünkü məqalədə bir çox Word sənədlərində məzmunu tapmaq və dəyişdirmək yolları haqqında sizə məlumat verməkdən məmnunuq.

Ümumiyyətlə, Word istifadəçilərinin əksəriyyəti proqram təminatındakı "Tap və Əvəz et" funksiyası ilə kifayət qədər tanışdır. Bu, bütün sənəd boyunca toplu işləmə prosesində bizə kömək edir və bu da bizə çox vaxt qazandırır. Bəs bu seçimi müəyyən bir qovluqdakı bütün fayllar kimi çoxsənədli sənədlərdə istifadə etməyi düşünmüsünüzmü?

Fayllar toplusunda məzmunun axtarışına və dəyişdirilməsinə həmişə ehtiyac olduğundan, funksiyanın həyata keçirilməsi yaxşı olardı. Bizim yolumuz isə makrodan istifadə etməkdir. Daha ətraflı məlumat əldə etmək üçün oxuyun.

Makronu quraşdırmaq və işə salmaq üçün addımlar

1. Əvvəlcə bütün faylları bir qovluğa qoyun və Word proqramını açın.
2. Sonra "Developer" sekmesini vurun.
3. Sonra "Visual Basic" düyməsini basın. Və ya sadəcə VBA redaktorunu işə salmaq üçün “Alt+ F11” düyməsini sıxın.
4. Sonra "Normal" layihəsinə klikləyin.
5. Sonra "Daxil et" sekmesini vurun və sonra "Modul" seçin.
6. İndi yeni modulu uğurla daxil etdiniz. Kodlama yerini açmaq üçün üzərinə iki dəfə klikləyin.
7. Aşağıdakı kodları oraya yapışdırın:

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. Nəhayət, "Çalış" düyməsini basın.
9. İndi açılan bir giriş qutusu olacaq. Sənədləri saxladığınız qovluq yolunu daxil edin.
10. Sonra "OK" düyməsini basın və ikinci qutu var. Tapmaq istədiyiniz mətnləri daxil edin.
11. Əvəzedici mətnləri daxil etdiyiniz üçüncü giriş qutusunu açmaq üçün “OK” düyməsini sıxmağa davam edin və orada “OK” düyməsini sıxın. Makro avtomatik olaraq bütün məzmunu əvəz edəcək və dəyişikliyi yadda saxlayacaq.

Gördüyünüz kimi, bu makro sizə qovluq yolunu, tapma və dəyişdirmə mətnlərini daxil edə biləcəyiniz 3 giriş qutusu ilə təmin edir. Beləliklə, siz bu makro üçün düymə təyin edə və onu təkrar istifadə üçün “Tez Giriş Alətlər Paneli”nə əlavə edə bilərsiniz.

Düyməni makroya necə təyin etməyə gəlincə, bu məqaləni oxuya bilərsiniz: Word-də Makro və VBA ilə yapışdırılmış mətnlərin formatını necə çıxarmaq olar

Dəyərli Məlumatları Qorun

Word-də səhvlər və problemlər yarana bilər. Nəticədə qiymətli sənədlər zədələnə bilər. ilə qarşılaşarkən doktor ziyanı, məlumatları əldə etmək üçün peşəkar bərpa alətindən istifadə etməyiniz məsləhətdir.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xls zərər və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com