Faqat Word jadvallaridagi matnni topishning 3 ta tezkor usuli

Ushbu maqolada biz sizga faqat Word jadvallarida aniq matnni topishning 3 ta tezkor usulini ko'rsatishdan mamnunmiz.

Word-da o'rnatilgan "Topish va almashtirish" funktsiyasidan foydalanib, siz uzoq hujjatda ma'lum bir matnni qidirishingiz va topishingiz mumkin. Ko'rib turganingizdek, bu butun hujjatga asoslangan. Qidiruv diapazonini faqat Word jadvallari bilan cheklasak-chi? Tafsilotlarni ko'rish uchun o'qing.

1-usul: Tanlangan matnni toping

1. Avvalo, hujjatda bir yoki bir nechta jadvallarni qo'lda tanlang.
2. Keyin "Uy" yorlig'i ostidagi "Topish" buyrug'i yonidagi ochiladigan tugmani bosing.
3. "Topish va almashtirish" dialog oynasini ochish uchun "Kengaytirilgan topish" ni tanlang.
4. "Nimani toping" matn maydoniga topilgan matnni kiriting.
5. "Topish" yorlig'ini bosing va "Joriy tanlov" ni tanlang.  

Word faqat siz tanlagan matnni topadi.

2-usul: Jadvaldagi matnni toping

Odatiy usuldan tashqari, ko'proq moslashtirilgan vazifalarni bajarish uchun makrosni ishga tushirishni tanlashingiz mumkin.

1. Birinchidan, kursorni matnni topmoqchi bo'lgan jadval ichiga qo'ying.
2. Keyin VBA muharririni ochish uchun "Alt + F11" tugmasini bosing.
3. Chap ustundagi "Oddiy" ni bosing.
4. Keyin "Qo'shish" tugmasini bosing va "Modul" ni tanlang.
5. Keyin modulni ochish uchun uni ikki marta bosing.
6. Quyidagi kodlarni modulga joylashtiring:

Sub FindInATable()
  Dim strText As String
 
  strText = InputBox("Enter finding text here: ")
 
  Application.ScreenUpdating = False
  If Selection.Information(wdWithInTable) = True Then
    With Selection.Tables(1).Range
      With .Find
        .ClearFormatting
        .Text = strText
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute
      End With
      Do While .Find.Found
        .Cells(1).Shading.BackgroundPatternColorIndex = wdBrightGreen
        On Error GoTo handler
        .Collapse wdCollapseEnd
        .Find.Execute
      Loop
    End With
  Else
    MsgBox ("Put cursor inside a table first.")
    Exit Sub
  End If
  handler: Exit Sub
  Application.ScreenUpdating = True
End Sub

7. Nihoyat, "Ishga tushirish" tugmasini bosing. Kirish maydoniga matn kiriting va davom etish uchun "OK" tugmasini bosing.

3-usul: Hujjatdagi barcha jadvallardagi matnni toping

1. Avvalo, makrosni o'rnatish va ishga tushirish uchun 2-usulda ko'rsatilgan amallarni takrorlang.
2. Keyin makroni shu bilan almashtiring:

Sub FindTextsInAllTables()
  Dim strText As String
 
  strText = InputBox("Enter finding text here: ")
 
  Application.ScreenUpdating = False
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Text = strText
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Do While .Find.Found = True
      If .Information(wdWithInTable) = True Then
        .Cells(1).Shading.BackgroundPatternColorIndex = wdBrightGreen
      End If
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
  Application.ScreenUpdating = True
End Sub

3. Xuddi shunday, kiritish maydoniga qidiruv matnini kiriting. Va davom etish uchun "OK" tugmasini bosing.

Ma'lumotlaringizni o'z vaqtida qutqaring

Buzilgan ma'lumotlarni olganingizdan so'ng, ularni qayta tiklash mumkinligini yodda tuting. Shuning uchun harakat qilishdan oldin hech qachon taslim bo'lmang. Bunday sharoitda, agar mavjud bo'lsa, oxirgi zaxirangizni tekshirishingiz kerak. Ma'lumotlaringizning bir qismini qaytarib olish uchun yaxshi imkoniyat bor. Bundan tashqari, siz har doim murojaat qilishingiz mumkin doc tuzatish ma'lumotlarni qayta tiklash uchun vosita.

Muallif kirish:

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