Ushbu maqolada Word hujjatidagi bo'limlar uchun so'zlar sonini hisoblashning 3 ta usuli mavjud.
Hujjatdagi so'zlarning umumiy sonini olish oson. Ammo Word-da bizga bo'limdagi so'zlar sonini aytib beradigan funksiya yo'q. Kitob yozish paytida bobni tashkil qilish kabi bir xil mavzu mazmunini bitta bo'limga joylashtirishni afzal ko'rganimizni hisobga olsak, bo'limlar sonini olish uchun vaqtinchalik echimlarni topishimiz kerak. 
Quyida makrosni ishga tushirishni talab qiladigan 3 ta yondashuv mavjud.
1-usul: Joriy bo'lim uchun so'zlar sonini hisoblang
- Birinchidan, kursorni maqsadli bo'lim ichiga joylashtiring.
- Keyin Word-da VBA muharririni ochishingiz kerak. "Tuzuvchi" ni va keyin "Visual Basic" buyrug'ini bosing. Tasmada “Dasturchi” ni topa olmasangiz, uning o‘rniga “Alt+ F11” tugmasini bosing.
- Keyin chap ustundagi "Oddiy" loyihani bosing.
- Keyin "Qo'shish" yorlig'ini bosing.
- Ochiladigan menyuda "Modul" ni tanlang.
- Ikki marta bosish orqali yangi modulni oching.
- Endi ochiq modulda quyidagi kodlarni joylashtiring:
Sub CountWordsOfCurrentSection()
MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
& " words in current section.")
End Sub
- Nihoyat, kodlarni bajarish uchun "Ishga tushirish" tugmasini bosing yoki "F5" tugmasini bosing.
Siz joriy bo'limning umumiy sonini ko'rsatadigan xabar oynasini olasiz, masalan:
2-usul: Muayyan bo'lim uchun so'zlar sonini hisoblang
Aytaylik, siz kitob ustida ishladingiz va har bir bobni alohida bo'lim sifatida belgiladingiz. Keyin bir bobda qancha so'z yozganingizni bilish uchun ushbu usuldan foydalanishingiz mumkin.
- Makrosni o'rnatish va ishga tushirish uchun yuqoridagi amallarni bajaring.
- Makrosni shu bilan almashtiring:
Sub CountWordsOfSpecificSection()
Dim strSecNum As String
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
strSecNum = InputBox("Enter a section number here:", "Enter Section Number")
MsgBox ("There are " & objDoc.Sections(strSecNum).Range.ComputeStatistics(wdStatisticWords) _
& " words in section " & strSecNum & ".")
Application.ScreenUpdating = True
End Sub
- Va uni ishga tushirganda, kirish qutisi bo'ladi. "Bo'lim raqamini kiriting" maydoniga bo'lim raqamini kiriting va davom etish uchun "OK" tugmasini bosing.
Natija xabarlar oynasida ko'rsatiladi.
3-usul: Hujjatdagi barcha bo'limlar uchun so'zlar sonini sanash
Subtitrdan ko'rinib turibdiki, bu usul sizga hujjatdagi har bir bo'limdagi so'zlarning umumiy sonini olasiz va ularni xabarlar oynasida ro'yxatga olasiz.
- Avvalo, maqsadli hujjatni oching.
- Shunga qaramay, makrosni o'rnatish va ishga tushirish uchun 1-usuldagi amallarni takrorlashingiz kerak.
- Va bu safar ushbu makros bilan o'zgartiring:
Sub CountWordsOfEachSectionInDoc()
Dim objDoc As Document
Dim nNumberOfSection As Long
Dim strText As String
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
nNumberOfSection = objDoc.Sections.Count
For nNumberOfSection = 1 To nNumberOfSection
strText = strText & "There are " & objDoc.Sections(nNumberOfSection) _
.Range.ComputeStatistics(wdStatisticWords) & " words in section " & nNumberOfSection & "; " _
& vbNewLine
Next nNumberOfSection
MsgBox strText
Application.ScreenUpdating = True
End Sub
Bu erda mumkin bo'lgan natija:
Qimmatli ma'lumotlarni saqlang
Barcha turdagi hujjatlar bilan ishlashda siz ularning xavfsizligini yodda tutishingiz kerak. Keyingi ma'lumotlar yo'qolishi qachon sodir bo'lishini hech qachon ayta olmasligingiz sababli, muhim fayllarni zaxiralash tavsiya etiladi. Bundan tashqari, qila oladigan vositani olish har doim yaxshi hujjatni tiklashagar mavjud bo'lsa.
Muallif kirish:
Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc xls ta'mirlash va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com