3 начина да получите статистически данни за броя на думите, свързани с текстови полета, бележки под линия и бележки в края във вашия документ

В днешната статия има 3 бързи начина да получите статистически данни за броя на думите, свързани с текстови полета, бележки под линия и бележки в края във вашия документ.

Не е трудно да получите общия брой думи в документ. Но ако искате да получите броя на думите от различни видове текстове, тогава ще са необходими повече операции. Следват 3 метода. Прочетете, за да видите какво можете да използвате. 

Метод 1: Преброяване на думи, включително текстове от текстови полета, бележки под линия и бележки в края

По подразбиране Word брои всички думи, които се появяват в документа, включително текстове в текстови полета и думи от бележки под линия и бележки в края.

1. Първо и най-важно, отидете в лентата на състоянието и щракнете върху „Думи“, за да отворите полето „Брой думи“.
2. Там ще видите всякакви статистики. Уверете се, че сте поставили отметка в полето „Включване на текстови полета, бележки под линия и бележки в края“.
3. След това щракнете върху „Затвори“.
4. Ако не можете да намерите командата „Думи“ в лентата на състоянието, щракнете с десния бутон върху нея.
5. След това проверете „Брой думи“.

Метод 2: Изключете текстове от текстови полета, бележки под линия и бележки в края от броя на думите

Това е обратното на метод 1. Така че просто трябва да махнете отметката от квадратчето „Включване на текстови полета, бележки под линия и бележки в края“.

Метод 3: Стартирайте Word Macro, за да получите отделен брой думи от текстови полета, бележки под линия и бележки в края

1. Първо задействайте полето „Брой думи“, като използвате начина в метод 1 и се уверете, че полето за опции е отметнато.
2. След това натиснете „Alt+ F11“, за да отворите VBA редактор.
3. След това вмъкнете нов модул в проекта „Normal“, като първо щракнете върху „Normal“.
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. Накрая щракнете върху бутона „Run“.

Ако няма текстово поле, бележка под линия или бележка в края, ще получите поле за съобщение като това:

Просто щракнете върху „OK“, за да продължите. След това ще видите друго поле, изброяващо всички подробности за броя на думите.

Вземете инструмент за възстановяване

Тъй като Word може да се срине внезапно, препоръчително е да се снабдите с усъвършенстван ремонтиращ продукт, който да извърши ремонтната работа. Такъв инструмент може да бъде чудесен спасител за корумпирана дума. Затова отделете време, за да получите такъв възможно най-скоро.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително поправете xls и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com