Bitta so'zli hujjatda bir vaqtning o'zida bir nechta elementlarni topishning 2 ta tezkor usuli

Ushbu postda bizning e'tiborimiz bitta Word hujjatida bir vaqtning o'zida bir nechta elementlarni topishning 2 ta tezkor usulini namoyish etishga qaratilgan.

Word bilan tanish bo'lgan har bir kishi "Topish va almashtirish" opsiyasini juda yaxshi bilishi kerak. Topish matni ketma-ket satr bo'lsa, u yaxshi ishlaydi. Ammo, afsuski, biz bir vaqtning o'zida bir nechta alohida so'zlarni qidirmoqchi bo'lganimizda, bu murakkablashadi. Va u erda, bir harakatda bir hujjatdagi so'zlar yoki iboralar ro'yxatini chizish uchun talab kuchli. Misol uchun, agar siz muharrir bo'lsangiz, hech qanday hujjatda ko'rinmasligi kerak bo'lgan bir nechta so'z bo'lishi mumkin. Agar shunday bo'lsa, ba'zi aniq so'zlarning paydo bo'lishini belgilash uchun vaqtinchalik echimlar kerak bo'ladi.

Bu erda 2 ta yechim mavjud:

1-usul: So'zlarni istisno lug'atiga import qilish

Word-dagi istisno lug'atiga bir nechta so'z yoki iboralarni qo'shing va keyin ularni belgilash uchun mos keladigan so'zlar ostida qizil to'lqin chizig'i paydo bo'lishi kerak.

Istisno lug'atiga so'zlarni qo'shish bo'yicha batafsil qadamlar ushbu maqolada: So'z imlosi va grammatika tekshiruvi bo'yicha 4 ta foydali maslahat

2-usul: Word makrosidan foydalaning

1. Avvalo, qidirmoqchi bo'lgan barcha so'zlarni bitta hujjatga joylashtiring. Har bir so'z yoki ibora bitta paragrafni egallashi kerak. Bu yerda uni "ro'yxat hujjati" deb ataymiz. Hujjatni saqlang.
2. Ikkinchidan, "Tuzuvchi" yorlig'ini bosing.
3. Keyin VBA muharririni ochish uchun "Visual Basic" tugmasini bosing. Muqobil usul - "Alt + F11" tugmachasini bosish.
4. Keyin "Oddiy" ni, so'ng "Qo'shish" yorlig'ini bosing.
5. Va menyuda "Modul" ni tanlang.
6. Tahrirlash maydonini chiqarish uchun yangi modul ustiga ikki marta bosing va u erga quyidagi makrosni qo'ying:

Sub FindMultiItemsInDoc()
  Dim objListDoc As Document
  Dim objTargetDoc As Document
  Dim objParaRange As Range, objFoundRange As Range
  Dim objParagraph As Paragraph
  Dim strFileName As String

  strFileName = InputBox("Enter the full name of the list document here:")
 
  Set objTargetDoc = ActiveDocument
  Set objListDoc = Documents.Open(strFileName)
  objTargetDoc.Activate
 
  For Each objParagraph In objListDoc.Paragraphs
    Set objParaRange = objParagraph.Range
    objParaRange.End = objParaRange.End - 1
 
      With Selection
        .HomeKey Unit:=wdStory
 
        '  Find target items.
        With Selection.Find
          .ClearFormatting
          .Text = objParaRange
          .MatchWholeWord = True
          .MatchCase = False
          .Execute
        End With
 
        '  Highlight the found items.
        Do While .Find.Found
          Set objFoundRange = Selection.Range
          objFoundRange.HighlightColorIndex = wdBrightGreen
          .Collapse wdCollapseEnd
          .Find.Execute
        Loop
      End With
  Next objParagraph
End Sub

7. Nihoyat, "Ishga tushirish" tugmasini bosing.
8. Endi quti bor. Siz saqlagan ro'yxat hujjatining yo'lini va nomini kiriting. Keyin "OK" tugmasini bosing.

Siz ko'rgan keyingi narsa - barcha topilgan so'zlar ta'kidlashda.

Word hujjatlarini himoyalang

Word hujjatlaringizning buzilishining oldini olishning eng mashhur choralaridan biri bu zaxira nusxalarini olishdir. Ular sizga xotirjamlik baxsh etishi mumkin. shikastlangan docx. Shunday ekan, hoziroq muhim fayllaringizni zaxiralashga vaqt ajrating.

Muallif kirish:

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