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