Word hujjatingizdagi matn qutilaridan matnlarni chiqarishning 2 ta tezkor usuli

Ushbu maqolada biz sizga Word hujjatidagi matn qutilaridan matnlarni chiqarishning 2 ta tez va foydalanish oson usulini ko'rsatmoqchimiz.

Vaqti-vaqti bilan biz ko'p sonli matn qutilarini o'z ichiga olgan Word faylini olishimiz mumkin. Odatda, bu qutilar ichida matnlar yoki nisbiy tarkib bo'ladi. Keyin butun matn maydonini saqlash o'rniga faqat matnlarni ichiga olish zarurati paydo bo'lishi mumkin.

Albatta, matnni nusxalash va boshqa joyga qo'yish orqali bitta matn qutisidagi so'zlarni tezda olish mumkin. Biroq, ularning yuzlablari haqida gap ketganda, biz ishni bajarish uchun ba'zi tezkor maslahatlarni o'rgangan ma'qul.

1-usul: "Tanlash paneli" dan foydalaning

1. Avvalo, "Bosh sahifa" yorlig'ini bosing.
2. Keyin "Tahrirlash" guruhidagi "Tanlash" belgisini bosing.
3. Keyin, ochiladigan menyuda "Tanlash paneli" ni tanlang.
4. Endi ekranning o'ng tomonida siz panelda ko'rinadigan barcha matn qutilarini ko'rishingiz mumkin.
5. "Ctrl" tugmasini bosing va barchasini tanlash uchun paneldagi matn maydoni nomlarini birma-bir bosing.
6. Va kursorni quti chizig'idan biriga qo'yishga o'ting va o'ng tugmasini bosing.
7. Ro'yxat variantida "Nusxalash" tugmasini bosing. Endi bu qutilar sizga kerak bo'lmasa, shunchaki "O'chirish" tugmasini bosing.
8. Keyin Windows menyusini ko'rish uchun "Ishga tushirish" tugmasini bosing.
9. "WordPad" ni tanlang va uni oching.
10. Keyin matn maydonlaridan barcha matnlarni olish uchun "Qo'yish" tugmasini bosing.
11. Keyin barcha matnlarni tanlang va "Nusxalash" ni tanlash uchun o'ng tugmasini bosing.
12. Endi yangi Word hujjatini oching va matnni olish uchun "Faqat matnni saqlash" ni tanlash uchun o'ng tugmasini bosing.

2-usul: VBA kodlaridan foydalaning

Ko'rib turganingizdek, hatto birinchi usulda ham barcha matn qutilarini tanlashdan qochib bo'lmaydi. Agar sizlardan ba'zilaringiz bunday mehnat ishdan nafratlansa, biz sizga makroni ishga tushirish usulini taklif qilamiz. 2-usul yordamida siz bir vaqtning o'zida barcha matnlarni chiqarib olishingiz va matn maydonchalarini o'chirib tashlashingiz mumkin.

1. Birinchidan, VBA muharririni ochish uchun "Alt + F11" tugmasini bosing.
2. Ikkinchidan, "Oddiy" va keyin "Qo'shish" tugmasini bosing.
3. Keyin yangisini kiritish uchun "Modul" ni tanlang.
4. Keyin tahrirlash maydonini ochish uchun modul nomini ikki marta bosing.
5. Quyidagi kodlarni joylashtiring va "Ishga tushirish" tugmasini bosing:

Sub DeleteTextBoxesAndExtractTheText()
  Dim nNumber As Integer
  Dim strText As String

  '  Delete all textboxes and extract the text from them
  With ActiveDocument
    For nNumber = .Shapes.Count To 1 Step -1
    If .Shapes(nNumber).Type = msoTextBox Then
      strText=strText& .Shapes(nNumber).TextFrame.TextRange.Text & vbCr
      .Shapes(nNumber).Delete
    End If
  Next
  End With

  '  Open a new document to paste the text from textboxes.
  If strText <> "" Then
    Documents.Add Template:="Normal"
    ActiveDocument.Range.Text = strText
  Else
    MsgBox ("There is no textbox.")
  End If
End Sub

Bu erda siz olishingiz mumkin bo'lgan narsa:

Buzilgan Word fayllari bilan engish

Word xatolarga moyil va shuning uchun tez-tez korruptsiya qurboni bo'ladi. Shuning uchun hujjatlarni shikastlanishdan himoya qilish uchun ularni to'g'ri boshqarishingiz kerak. Agar ular buzilgan bo'lsa, siz ularni butunlay yo'qotish xavfiga duch kelasiz. Keyin siz foydalanishingiz kerak bo'ladi buzilgan Word ma'lumotlarini tiklash vositasi.

Muallif kirish:

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