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

В этой статье для вас будет 3 метода подсчета количества слов для разделов в вашем документе Word.

Легко получить общее количество слов в документе. Но в Word нет функции, которая сообщала бы нам количество слов в разделе. А учитывая тот факт, что мы предпочитаем размещать содержание одной и той же темы в одном разделе, например, организовывать главу при написании книги, нам необходимо придумать обходные пути, чтобы получить количество разделов.   Ниже приведены 3 подхода, которые требуют запуска макроса.

Метод 1: подсчитайте количество слов для текущего раздела

1. Во-первых, поместите курсор внутрь целевого раздела.
2. Затем вам нужно открыть редактор VBA в Word. Нажмите «Разработчик», а затем команду «Visual Basic». Если вы не можете найти «Разработчик» на ленте, вместо этого нажмите «Alt + F11».
3. Затем нажмите «Обычный» проект в левом столбце.
4. Затем нажмите вкладку «Вставить».
5. В этом раскрывающемся меню выберите «Модуль».
6. Откройте новый модуль двойным щелчком мыши.
7. Теперь в открытом модуле вставьте следующие коды:

Sub CountWordsOfCurrentSection()
  MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
         & " words in current section.")
End Sub

8. Наконец, нажмите «Выполнить» или нажмите «F5», чтобы выполнить коды.

Вы получите окно сообщения, показывающее общее количество текущих разделов, как показано ниже:

Метод 2: подсчитайте количество слов для определенного раздела

Допустим, вы работали над книгой и выделили каждую главу в отдельный раздел. Затем, чтобы узнать, сколько слов вы написали в главе, вы можете использовать этот метод.

1. Выполните описанные выше шаги, чтобы установить и запустить макрос.
2. Просто замените макрос на этот:

Sub CountWordsOfSpecificSection()
  Dim strSecNum As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strSecNum = InputBox("Enter a section number here:", "Enter Section Number") 
  MsgBox ("There are " & objDoc.Sections(strSecNum).Range.ComputeStatistics(wdStatisticWords) _
          & " words in section " & strSecNum & ".")
  Application.ScreenUpdating = True
End Sub

3. И запустив его, появится поле ввода. В поле «Введите номер раздела» введите номер раздела и нажмите «ОК», чтобы продолжить.

Результат отображается в окне сообщения.

Способ 3: подсчет количества слов во всех разделах документа

Как следует из подзаголовка, таким образом вы получите общее количество слов в каждом разделе документа и перечислите их в окне сообщения.

1. Прежде всего, откройте целевой документ.
2. Тем не менее, вам придется повторить шаги метода 1, чтобы установить и запустить макрос.
3. И на этот раз измените этот макрос:

Sub CountWordsOfEachSectionInDoc()
  Dim objDoc As Document
  Dim nNumberOfSection As Long
  Dim strText As String
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
  nNumberOfSection = objDoc.Sections.Count
 
  For nNumberOfSection = 1 To nNumberOfSection
    strText = strText & "There are " & objDoc.Sections(nNumberOfSection) _
              .Range.ComputeStatistics(wdStatisticWords) & " words in section " & nNumberOfSection & "; " _
              & vbNewLine
  Next nNumberOfSection
 
  MsgBox strText
 
  Application.ScreenUpdating = True
End Sub

Вот возможный исход:

Сохраните ценные данные

Имея дело со всеми видами документов, вы должны помнить об их безопасности. Поскольку вы никогда не можете сказать, когда произойдет следующая потеря данных, рекомендуется создавать резервные копии важных файлов. Кроме того, всегда хорошо иметь инструмент, который может восстановить документесли есть.

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая xls ремонт и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com