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

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

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

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

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

Sub CountWordsOfCurrentSection() MsgBox ("Есть " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _ & " слова в текущем разделе.") 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("Введите здесь номер раздела:", "Введите номер раздела") MsgBox ("Есть" & objDoc.Sections (strSecNum).Range.ComputeStatistics(wdStatisticWords) _ & " слова в разделе " & strSecNum & ".") Application.ScreenUpdating = True End Sub

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

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

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

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

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

Sub CountWordsOfEachSectionInDoc() Dim objDoc As Document Dim nNumberOfSection As Long Dim strText As String Application.ScreenUpdating = False Установить objDoc = ActiveDocument nNumberOfSection = objDoc.Sections.Count For nNumberOfSection = 1 To nNumberOfSection strText = strText & "Есть" & objDoc.Sections (nNumberOfSection) _ .Range.ComputeStatistics(wdStatisticWords) & "слова в разделе" & nNumberOfSection & ";" _ & vbNewLine Next nNumberOfSection MsgBox strText Application.ScreenUpdating = True End Sub

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

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

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

Об авторе:

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