Құжатыңыздағы мәтіндік қораптарға, сілтемелер мен ескертулерге қатысты сөздер санының статистикасын алудың 3 жолы

Бүгінгі мақалада құжатыңыздағы мәтін ұяларына, түсіндірмелерге және соңғы ескертулерге қатысты сөздерді санау статистикасын алудың 3 жылдам жолы бар.

Құжаттағы сөздердің жалпы санын алу қиын емес. Бірақ әр түрлі мәтіндердің сөздерінің санын алғыңыз келсе, қосымша әрекеттер қажет болады. Төменде 3 әдіс берілген. Нені қолдануға болатынын көру үшін оқыңыз. 

1-әдіс: мәтіндік қораптардағы, сілтемелердегі және соңғы ескертулердегі мәтіндерді қамтитын сөздерді санау

Әдепкі бойынша, Word құжатта пайда болатын барлық сөздерді, соның ішінде мәтін жолақтарындағы мәтіндерді және сілтемелер мен соңғы ескертулердегі сөздерді санайды.

1. Ең алдымен, күй жолағына өтіп, «Сөздер» түймесін басып, «Сөздер саны» өрісін ашыңыз.
2. Онда сіз статистиканың барлық түрлерін көресіз. «Мәтіндік жәшіктерді, түсіндірмелерді және соңғы ескертулерді қосу» ұяшығына құсбелгі қойылғанына көз жеткізіңіз.
3. Содан кейін «Жабу» батырмасын басыңыз.
4. Күй жолағында «Сөздер» пәрменін таба алмасаңыз, сол жерді тінтуірдің оң жақ түймешігімен басыңыз.
5. Әрі қарай «Сөз санауын» тексеріңіз.

2-әдіс: мәтіндік жолақтардағы мәтіндерді, сілтемелер мен соңғы ескертулерді сөз санынан шығару

Бұл 1-әдіске қарама-қайшы. Сондықтан «Мәтіндік жәшіктерді, түсіндірмелерді және соңғы ескертулерді қосу» құсбелгісін алып тастау керек.

3-әдіс: мәтін ұяларынан, сілтемелер мен соңғы жазбалардан бөлек сөздер санын алу үшін Word макросын іске қосыңыз

1. Біріншіден, 1-әдістегі жолды пайдаланып, «Сөз санау» жолағын іске қосыңыз және опция ұяшығы белгіленгеніне көз жеткізіңіз.
2. VBA редакторын ашу үшін келесі «Alt + F11» пернелерін басыңыз.
3. Содан кейін алдымен «Қалыпты» түймесін басу арқылы «Қалыпты» жобасына жаңа модульді салыңыз.
4. Және келесі «Кірістіру» түймесін басыңыз.
5. Содан кейін «Модульді» таңдаңыз.
6. Кодтау аймағын ашу үшін модульді екі рет басыңыз және сол жерге келесі кодтарды қойыңыз:

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. Соңында, «Іске қосу» батырмасын басыңыз.

Егер мәтіндік жолақ, сілтеме немесе соңғы ескерту болмаса, сіз келесідей хабар жолағын аласыз:

Жалғастыру үшін жай ғана «OK» түймесін басыңыз. Содан кейін сіз сөздер санының барлық мәліметтерін көрсететін басқа жолақты көресіз.

Қалпына келтіру құралын алыңыз

Word кенеттен құлап кетуі мүмкін болғандықтан, түзету жұмысын орындау үшін кеңейтілген жөндеу өнімін алған жөн. Мұндай құрал тамаша үнемдеуші бола алады бүлінген Word. Сондықтан мүмкіндігінше тезірек алу үшін уақытты пайдаланыңыз.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. xls түзету және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com