Word hujjatingizdagi matn maydoni boʻyicha koʻrib chiqishning 3 ta samarali usuli

Ushbu maqolada biz sizga Word hujjatidagi matn maydoni bo'yicha ko'rib chiqishning 3 ta samarali usulini ko'rsatishdan mamnunmiz.

Word dasturida faqat siz tanlagan ob'ektlarni ko'rib chiqish imkonini beruvchi "Ko'rib chiqish ob'ektini tanlash" buyrug'i mavjud. Misol uchun, jadval yoki sahifa bo'yicha ko'rib chiqishni tanlashingiz mumkin. Afsuski, matn maydoni bo'yicha ko'rish uchun o'rnatilgan funksiya mavjud emas. Shuning uchun biz sizga buni qilishning 3 usulini taqdim etamiz.

1-usul: “Tab” tugmasidan foydalaning

1. Avvalo, hujjatning boshiga o'tish uchun "Ctrl + Home" tugmalarini bosing.
2. Keyin birinchi matn maydonini toping va bosing.
3. Keyingi matn maydoniga o'tish uchun "Tab" tugmasini bosing.

Aytgancha, bu usul sizga hujjatdagi shakl va tasvirlarni ham topasiz.

2-usul: Bir matn qutisidan ikkinchisiga o'tish uchun makrosni ishga tushiring

1. Avvalo, Word dasturida VBA muharririni ishga tushirish uchun "Alt + F11" tugmalarini bosing.
2. Keyin "Oddiy" tugmasini bosing.
3. Keyin "Qo'shish" tugmasini bosing va ochiladigan menyuda "Modul" ni tanlang.
4. Ikki marta bosish orqali yangi modulni oching.
5. Endi kodlash maydoniga quyidagi kodlarni joylashtiring:

Sub BrowseByTextBox()
  Dim objShape As Shape
  Dim strBoxText As String
  Dim strButtonValue As String
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      strBoxText = objShape.TextFrame.TextRange.Text
      strButtonValue = MsgBox("This text box contains: " & vbNewLine _
                       & strBoxText & vbNewLine & "Is this your desired text box?" _
                       & vbNewLine, vbYesNo, "Desired Text Box")
      If strButtonValue = vbYes Then
        Exit Sub
      End If
    End If
  Next objShape
End Sub

6. Kodlarni bajarish uchun menyu panelidagi "Ishga tushirish" tugmasini bosing yoki "F5" tugmasini bosing.

Makrosni ishga tushirishni boshlaganingizdan so'ng, quyidagi kabi xabar oynasi paydo bo'ladi:

Qutida joriy tanlangan matn maydonidagi tarkib ko'rsatiladi. Agar siz xohlagan matn maydoni bo'lsa, uni to'xtatish uchun "Ha" tugmasini bosishingiz mumkin. Aks holda, keyingi matn maydoniga o'tish uchun "Yo'q" tugmasini bosing.

3-usul: Muayyan matn qutisini toping

Hujjatdagi matn maydoniga sarlavha qo'ygan bo'lsangiz, uni darhol topish uchun uni quyidagi so'l bilan birgalikda ishlatishingiz mumkin.

1. Avvalo, makrosni o'rnatish va ishga tushirish uchun 2-usuldagi bosqichlarga qarang.
2. Keyin makroni shu bilan almashtirishni unutmang:

Sub FindASpecificTextBox()
  Dim objShape As Shape
  Dim strBoxTitle As String
  Dim objInlineShape As InlineShape
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strBoxTitle = InputBox("Enter the title of the text box to be found here: ")
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      If objShape.Title = strBoxTitle Then
        Exit Sub
      End If
    End If
  Next objShape
  For Each objInlineShape In objDoc.InlineShapes
    If objInlineShape.Type = msoTextBox Then
      objInlineShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      If objInlineShape.Title = strBoxTitle Then
        Exit Sub
      End If
    End If
  Next objInlineShape
 
  Application.ScreenUpdating = True
End Sub

3. Keyin paydo bo'lgan kiritish oynasida topiladigan matn maydonining sarlavhasini kiriting va davom etish uchun "OK" tugmasini bosing. Tanlovda maqsadli matn maydonini topasiz.

Ma'lumotlarni yo'qotish bilan kurashish

Word eng ko'p ishlatiladigan dasturlardan biri ekanligini hisobga olsak, Word javob berishni to'xtatgandan so'ng, ba'zi fokuslarni bilish zarur. Muhimi buzilgan doc, sizning yagona tanlovingiz uni tiklashdir. Va buni amalga oshirish uchun siz ishonishingiz mumkin bo'lgan uchinchi tomon vositasini diqqat bilan tanlashingiz kerak.

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