Bugungi maqolada biz sizga Word hujjatidagi o'qlar sonini hisoblashning 2 ta tez va samarali usulini taqdim etamiz.
Vaqti-vaqti bilan elementlarni tartibga solish uchun hujjatlarimizda markirovka qilingan yoki raqamlangan ro‘yxatlardan foydalanardik. Umuman olganda, o'q yoki raqam alohida elementni, xoh u so'z yoki ibora yoki jumlaga olib keladi. Endi sizda raqamlangan ro'yxat bo'lsa, umumiy element sonini aniqlash muammo bo'lmaydi. Biroq, agar Word hujjatingizda markirovka qilingan ro'yxatlar bo'lsa-chi? Ularni birma-bir sanashning o‘zi yaxshi eshitilmaydi.
Shuning uchun, agar sizlardan ba'zilari o'q raqamini jamlashlari kerak bo'lsa, bu erda ishlashning 2 usuli mavjud.
1-usul: Belgilangan ro'yxatni raqamlangan ro'yxatga aylantirish
- Birinchidan, o'q raqamini olishni istagan ro'yxatni tanlang.
- Keyin "Uy" yorlig'i ostidagi "Paragraf" guruhidagi "Raqamlash" ni bosing. Belgilangan ro'yxat raqamlangan ro'yxatga o'zgartiriladi.
Yoki siz tanlovni sichqonchaning o'ng tugmasi bilan bosishingiz va kursorni "Raqamlash" opsiyasi ustiga olib borishingiz mumkin, so'ngra kursorni kengaytirish menyusidagi raqamlash uslublaridan biriga olib keling. Bu sizga markirovka qilingan ro'yxatni raqamlangan ro'yxatga aylantirmasdan o'qlar sonini olish imkonini beradi.
Aytgancha, agar siz butun hujjatning o'q nuqtalarini hisoblashingiz kerak bo'lsa, kursorni faqat bitta markirovka qilingan ro'yxat ichiga qo'yishingiz kerak va keyin yuqoridagi amallarni bajaring. Fayl ichidagi barcha markirovka qilingan roʻyxatlar ketma-ket raqamlar bilan raqamlangan roʻyxatlarga aylantirilganini topasiz, masalan:
2-usul: Makrosdan foydalaning
- Boshlash uchun, agar siz ma'lum bir ro'yxatning o'qlarini olishni istasangiz, uni tanlang. Aks holda, butun hujjatdagi o'qlarni hisoblash uchun uni tanlash uchun "Ctrl + A" tugmalarini bosishingiz kerak.
- Keyin, "Tuzuvchi" yorlig'ini bosing.
- Keyin VBA muharririni ochish uchun "Visual Basic" tugmasini bosing. Yorliqlar kombinatsiyasi - "Alt + F11".
- Endi "Oddiy" ni, keyin "Qo'shish" ni bosing.
- Keyingi "Modul" ni tanlang.
- Yangi modulni ikki marta bosing va tahrirlash maydoniga ushbu kodlarni joylashtiring:
Sub GetNumberOfBullets()
Dim objRange As Range
Dim objParagraph As Paragraph
Dim nNumber As Integer
' Initialization
Set objRange = Selection.Range
nNumber = 0
For Each objParagraph In objRange.Paragraphs
If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Then
nNumber = nNumber + 1
End If
Next objParagraph
' Pop up a message box to show the total number of bullets.
MsgBox ("Bullet number:" & nNumber)
End Sub
- Nihoyat, "Ishga tushirish" tugmasini bosing.
Natijani ko'rsatadigan xabar oynasini ko'rasiz.
Faylingizni yaxshi boshqaring
Biz ish tajribasi davomida ko'p sonli Word hujjatlari bilan ishlaymiz, ularni ehtiyotkorlik bilan ishlashimiz tavsiya etiladi, chunki har qanday nosozlik korruptsiyaga olib kelishi mumkin. Va agar faylga zarar yetkazilsa, sizga kerak bo'ladi Word hujjatlarini tiklash vositasi muammoni hal qilishga yordam berish uchun.
Muallif kirish:
Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc xls ma'lumotlar shikastlanishini tuzatish vositasi va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com