Bugungi postda biz siz bilan so'zlar soni statistikasidan jadval matnlarini chiqarib tashlashning 2 ta samarali usulini baham ko'rishdan mamnunmiz.
Jadvallar odatda ma'lumotlarni saqlash uchun ishlatiladi. Jadvallar hujjat ustida ishlashda fikrlarni tasvirlashda bizning eng yaxshi do'stimizdir. Keyin so'zlarni hisoblashda u biroz noqulay bo'lishi mumkin. Ba'zida biz jadvallardagi barcha ma'lumotlardan ko'ra asosiy matnlarning so'zlari sonini olishimiz kerak. Shunga qaramay, Word hujjatingizdagi barcha so'zlarni sukut bo'yicha hisoblab chiqishi hammaga ma'lum. Shuning uchun biz samarali vositalarni ishlab chiqdik. Batafsil ma'lumot olish uchun o'qing.
1-usul: Jadvallarni qo'lda tanlang va matematikani o'zingiz bajaring
Agar u bitta yoki ikkita jadvaldan iborat qisqa hujjat bo'lsa, "Ctrl" tugmachasini bosib, jadvallarni birma-bir tanlash qiyin emas. Ushbu yondashuvda tanlangan jadvallarning umumiy soni holat satrida ko'rinadi, masalan:
Ko'rib turganingizdek, 2 ta raqam mavjud. Birinchisi tanlangan jadvallardagi so'zlar soniga, ikkinchisi esa hujjatingizdagi so'zlarning umumiy soniga ishora qiladi. Natijani olish uchun birinchi raqamni kamaytirish uchun ikkinchi raqamdan foydalaning.
2-usul: VBA kodlarini ishga tushiring
Yuqorida ta'kidlab o'tilganidek, hujjatda ko'p sonli jadvallar mavjud bo'lsa, 1-usul zerikarli bo'ladi. Ularni qo'lda tanlash, albatta, ideal usul emas. Buning o'rniga biz sizga barcha so'zlarni hisoblaydigan, lekin jadvallar va sarlavhalarda ularni istisno qiladigan makrosni tavsiya qilamiz.
- Avvalo, Word dasturida VBA muharririni ishga tushirish uchun "Alt + F11" tugmalarini bosing.
- Keyin "Oddiy" tugmasini bosing.
- Keyin "Qo'shish" yorlig'ini bosing.
- Va "Qo'shish" yorlig'ining ochiladigan menyusida "Modul" ni tanlang.
- O'ng tarafdagi kodlash maydonini ochish uchun yangi modulni ikki marta bosing.
- Endi u erga quyidagi makrosni joylashtiring:
Sub ExcludeTableAndCaptionWordsFromWordCount()
Dim objTable As Table
Dim objParagraph As Paragraph
Dim objDoc As Document
Dim nTableWords As Integer, nDocWords As Integer, nWordCount As Integer, nCaptionWords As Integer
Set objDoc = ActiveDocument
nTableWords = 0
nCaptionWords = 0
nDocWords = ActiveDocument.ComputeStatistics(wdStatisticWords)
With objDoc
For Each objTable In .Tables
nTableWords = nTableWords + objTable.Range.ComputeStatistics(wdStatisticWords)
Next objTable
End With
With objDoc
For Each objParagraph In .Paragraphs
If objParagraph.Range.Style = "Caption" Then
nCaptionWords = nCaptionWords + objParagraph.Range.ComputeStatistics(wdStatisticWords)
End If
Next objParagraph
End With
nWordCount = nDocWords - nTableWords - nCaptionWords
MsgBox ("There are " & nWordCount & " main text words in this document." & vbCr & "The following items are excluded from word count: " & vbCr & "Total words in tables: " & nTableWords & vbCr & "Total caption words: " & nCaptionWords)
End Sub
- Nihoyat, "Ishga tushirish" tugmasini bosing.
Makrosni ishga tushirishda hisoblash natijasi ko'rsatilgan xabar oynasi paydo bo'ladi.
So'z zararlari bilan shug'ullaning
Biz har kuni ishni qayta ishlash uchun Word kabi dasturlarga juda ishonamiz. Natijada, biz a'zolikka ega bo'lishning dahshatli oqibatlari haqida o'ylay olmadik So'zning buzilishi. Hujjatlarni tuzatish uchun etarli vositaga ega bo'lmasangiz, o'zingizni umidsiz his qilishingiz mumkin.
Muallif kirish:
Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc xls tuzatish va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com