Hujjatingizdagi matn qutilari, izohlar va soʻnggi eslatmalar bilan bogʻliq soʻzlar soni statistikasini olishning 3 usuli

Bugungi maqolada hujjatingizdagi matn qutilari, izohlar va so'nggi izohlar bilan bog'liq so'zlar soni statistikasini olishning 3 ta tezkor usuli mavjud.

Hujjatdagi so'zlarning umumiy sonini olish qiyin emas. Ammo agar siz turli xil matnlardagi so'zlar sonini olishni istasangiz, unda ko'proq operatsiyalar talab qilinadi. Quyida 3 ta usul mavjud. Nimadan foydalanishingiz mumkinligini bilish uchun o'qing. 

1-usul: Matn qutilari, izohlar va so'nggi izohlardagi matnlarni o'z ichiga olgan so'zlarni sanash

Odatiy bo'lib, Word hujjatdagi barcha so'zlarni, shu jumladan matn qutilaridagi matnlarni, izohlar va so'nggi izohlardagi so'zlarni hisobga oladi.

1. Avvalo, holat satriga o'ting va "So'zlar soni" oynasini ochish uchun "So'zlar" tugmasini bosing.
2. U erda siz har xil statistik ma'lumotlarni ko'rasiz. "Matn qutilari, izohlar va so'nggi izohlarni qo'shish" katagiga belgi qo'yganingizga ishonch hosil qiling.
3. Keyin "Yopish" tugmasini bosing.
4. Agar vaziyat satrida "So'zlar" buyrug'ini topa olmasangiz, u yerni o'ng tugmasini bosing.
5. Keyin "So'zlar soni" ni tekshiring.

2-usul: Matn qutilaridagi matnlarni, izohlar va so‘nggi izohlarni so‘zlar sonidan chiqarib tashlang

Bu 1-usulga qarama-qarshidir. Demak, “Matn qutilari, izohlar va soʻnggi izohlarni qoʻshish” katagiga belgini olib tashlash kifoya.

3-usul: Matn qutilari, izohlar va so'nggi izohlardan alohida so'zlarni olish uchun Word makrosini ishga tushiring

1. Birinchidan, 1-usuldagi usuldan foydalanib, "So'zlarni hisoblash" oynasini ishga tushiring va opsiya oynasi belgilanganligiga ishonch hosil qiling.
2. Keyin VBA muharririni ochish uchun "Alt + F11" tugmasini bosing.
3. Keyin, avval "Oddiy" tugmasini bosish orqali "Oddiy" loyihasiga yangi modulni joylashtiring.
4. Va keyingi "Qo'shish" tugmasini bosing.
5. Keyin "Modul" ni tanlang.
6. Kodlash maydonini ochish uchun modulni ikki marta bosing va u erga quyidagi kodlarni joylashtiring:

Sub SeparateCountNumberOfTextboxFootnoteEndnote()
  Dim lTextboxWords As Long
  Dim lTextboxChars As Long
  Dim lDocumntWords As Long
  Dim lDocumntChars As Long
  Dim objTextboxShape As Shape
  Dim objTemp As Dialog
  Dim bDone As Boolean
  Dim objRange As Range
  Dim lFootnoteWords As Long
  Dim lFootnoteChars As Long
  Dim lEndnoteWords As Long
  Dim lEndnoteChars As Long
 
  Application.ScreenUpdating = False

 Do
   bDone = True
   For Each objTextboxShape In ActiveDocument.Shapes
     If objTextboxShape.Type = msoGroup Then
       objTextboxShape.Ungroup
       bDone = False
     End If
   Next objTextboxShape
 Loop Until bDone

 '  Count the words and characters in the whole document.
 Selection.HomeKey Unit:=wdStory
 Set objTemp = Dialogs(wdDialogToolsWordCount)
   objTemp.Update
   objTemp.Execute
   lDocumntWords = objTemp.Words
   lDocumntChars = objTemp.Characters
 
 With ActiveDocument
 '  Count the words and characters in all textboxes.
   lTextboxWords = 0
   lTextboxChars = 0
   If ActiveDocument.Shapes.Count > 0 Then
     For Each objTextboxShape In .Shapes
       objTextboxShape.Select
       objTemp.Execute
       lTextboxWords = lTextboxWords + objTemp.Words
       lTextboxChars = lTextboxChars + objTemp.Characters
     Next objTextboxShape
   Else
     MsgBox ("There is no text box in this document")
   End If

   '  Count the words and characters in all footnotes.
   lFootnoteWords = 0
   lFootnoteChars = 0
   If ActiveDocument.Footnotes.Count > 0 Then
     For Each objRange In .StoryRanges
       If objRange.StoryType = wdFootnotesStory Then
         objRange.Select
         objTemp.Execute
         lFootnoteWords = lFootnoteWords + objTemp.Words
         lFootnoteChars = lFootnoteChars + objTemp.Characters
       End If
     Next objRange
   Else
     MsgBox ("There is no footnote in this document")
   End If

   '  Count the words and characters in all endnotes. 
   lEndnoteWords = 0
   lEndnoteChars = 0
   If ActiveDocument.Endnotes.Count > 0 Then
     For Each objRange In .StoryRanges
       If objRange.StoryType = wdEndnotesStory Then
         objRange.Select
         objTemp.Execute
         lEndnoteWords = lEndnoteWords + objTemp.Words
         lEndnoteChars = lEndnoteChars + objTemp.Characters
       End If
     Next objRange
   Else
     MsgBox ("There is no Endnote in this document")
   End If
 End With
 
 Application.ScreenUpdating = True

 MsgBox (" In this document there are totally" & vbCr _
   & Str(lDocumntWords) & " word(s) and" & Str(lDocumntChars) & " characters" & vbCr & vbCr _
   & "Including:" & vbCr _
   & Str(ActiveDocument.Shapes.Count) & " textboxes contain(s)" & vbCr _
   & Str(lTextboxWords) & " word(s)," & Str(lTextboxChars) & " characters" & vbCr & vbCr _
   & Str(ActiveDocument.Footnotes.Count) & " footnotes contain(s)" & vbCr _
   & Str(lFootnoteWords) & " word(s)," & Str(lFootnoteChars) & " characters" & vbCr & vbCr _
   & Str(ActiveDocument.Endnotes.Count) & " Endnotes contain(s)" & vbCr _
   & Str(lEndnoteWords) & " word(s)," & Str(lEndnoteChars) & " characters")
End Sub

7. Nihoyat, "Ishga tushirish" tugmasini bosing.

Agar matn qutisi, izoh yoki so'nggi izoh bo'lmasa, siz quyidagi xabar qutisini olasiz:

Davom etish uchun shunchaki “OK” tugmasini bosing. Keyin siz so'zlar sonining barcha tafsilotlarini ko'rsatadigan boshqa qutini ko'rasiz.

Qayta tiklash vositasini oling

Word birdan qulab tushishi mumkinligi sababli, tuzatish ishini bajarish uchun ilg'or ta'mirlash mahsulotini olish tavsiya etiladi. Bunday vosita ajoyib tejamkor bo'lishi mumkin buzilgan Word. Shuning uchun, imkon qadar tezroq olish uchun vaqt ajrating.

Muallif kirish:

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