3 способи отримання статистики підрахунку слів, пов’язаної з текстовими полями, виносками та кінцевими виносками у вашому документі

У сьогоднішній статті є 3 швидкі способи отримати статистику кількості слів, пов’язану з текстовими полями, виносками та кінцевими виносками у вашому документі.

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

Метод 1: Підрахуйте слова, включаючи тексти з текстових полів, виносок та кінцевих виносок

За замовчуванням Word підраховує всі слова, що з’являються в документі, включаючи тексти в текстових полях, а також слова з виносок та кінцевих виносок.

1. Перш за все, перейдіть до рядка стану та натисніть «Слова», щоб відкрити поле «Кількість слів».
2. Там ви побачите всілякі статистичні дані. Переконайтеся, що ви встановили прапорець «Включати текстові поля, виноски та кінцеві виноски».
3. Потім натисніть «Закрити».
4. Якщо ви не можете знайти команду “Слова” у рядку стану, клацніть правою кнопкою миші там.
5. Потім перевірте “Кількість слів”.

Спосіб 2: Виключіть тексти з текстових полів, виносок та кінцевих виносок із підрахунку слів

Це протилежне методу 1. Отже, вам просто потрібно зняти прапорець «Включити текстові поля, виноски та кінцеві виноски».

Метод 3: Запустіть макрос Word, щоб отримати окремий підрахунок слів із текстових полів, виносок та кінцевих виносок

1. По-перше, запустіть поле «Кількість слів», використовуючи спосіб у способі 1, і переконайтеся, що встановлено прапорець.
2. Потім натисніть “Alt + F11”, щоб відкрити редактор VBA.
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 може раптово руйнуватися, бажано придбати вдосконалений ремонтний продукт, щоб виконати роботу з виправлення. Такий інструмент може чудово заощадити корумповане слово. Тому скористайтеся часом, щоб отримати його якомога швидше.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі виправити xls та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com