Bir nechta Word hujjatlaridagi tarkibni qanday topish va almashtirish

Bugungi maqolada biz sizga bir nechta Word hujjatlaridagi tarkibni topish va almashtirish usullari haqida ma'lumot berishdan xursandmiz.

Umuman olganda, Word foydalanuvchilarining aksariyati dasturiy ta'minotdagi "Topish va almashtirish" funksiyasi bilan yaxshi tanish. Bu bizga butun hujjatni ommaviy ravishda ko'rib chiqishda yordam beradi, bu bizga ko'p vaqtni tejaydi. Unda siz ushbu parametrdan ma'lum bir papkadagi barcha fayllar kabi ko'p hujjatli fayllarda foydalanish haqida o'ylab ko'rganmisiz?

Fayllar to'plamidagi tarkibni qidirish va almashtirish har doim zarur bo'lganligi sababli, funktsiyani amalga oshirish yaxshi bo'lar edi. Va bizning yo'limiz makrodan foydalanishdir. Batafsil ma'lumot olish uchun o'qing.

Makroni o'rnatish va ishga tushirish bosqichlari

1. Avvalo, barcha fayllarni bitta papkaga joylashtiring va Word dasturini oching.
2. Keyin "Tuzuvchi" yorlig'ini bosing.
3. Keyin "Visual Basic" tugmasini bosing. Yoki VBA muharririni ishga tushirish uchun shunchaki “Alt+ F11” tugmasini bosing.
4. Keyin "Oddiy" loyihani bosing.
5. Keyin "Qo'shish" yorlig'ini bosing va keyin "Modul" ni tanlang.
6. Endi siz yangi modulni muvaffaqiyatli kiritdingiz. Kodlash maydonini ochish uchun ustiga ikki marta bosing.
7. Quyidagi kodlarni u erga joylashtiring:

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. Nihoyat, "Ishga tushirish" tugmasini bosing.
9. Endi kirish oynasi paydo bo'ladi. Hujjatlarni saqlaydigan papka yo'lini kiriting.
10. Keyin "OK" tugmasini bosing va ikkinchi oyna paydo bo'ladi. Topmoqchi bo'lgan matnlarni kiriting.
11. Uchinchi kiritish oynasini ochish uchun "OK" tugmasini bosishni davom eting, unda siz almashtiriladigan matnlarni kiritasiz va u erda "OK" tugmasini bosing. Makros avtomatik ravishda barcha tarkibni almashtiradi va o'zgarishlarni saqlaydi.

Ko'rib turganingizdek, ushbu makros sizga 3 ta kirish qutisini taqdim etadi, bu erda siz papka yo'lini, matnlarni topish va almashtirishni kiritishingiz mumkin. Shunday qilib, siz ushbu makrosga tugma belgilashingiz va uni qayta ishlatish uchun "Tez kirish asboblar paneli" ga qo'shishingiz mumkin.

Makrosga tugmani qanday belgilashga kelsak, siz ushbu maqolani o'qishingiz mumkin: Word-da makro va VBA yordamida qo'yilgan matnlarni formatlashni qanday olib tashlash mumkin

Qimmatli ma'lumotlarni himoya qilish

Word dasturida xatolar va muammolar paydo bo'lishi mumkin. Natijada qimmatli qog'ozlar buzilishi mumkin. bilan uchrashganda dok zarar, ma'lumotlarni qayta tiklash uchun professional tiklash vositasidan foydalanish tavsiya etiladi.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc xls zarar va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com