2 Швидкі способи підрахунку загальної кількості сторінок і слів для кількох документів Word

У цій статті ми покажемо вам 2 швидких і ефективних способи підрахувати загальну кількість сторінок і слів у кількох документах Word.

Час від часу, працюючи над довгим документом, ми схильні розділяти вміст на кілька файлів Word, наприклад розміщувати різні розділи в кількох документах. Тоді, коли справа доходить до підрахунку загальної кількості сторінок і слів, це може бути трохи виснажливим, оскільки вам доведеться відкривати кожен окремий документ і перевіряти інформацію.

Тому ми пропонуємо 2 швидких способи, які допоможуть заощадити ваш дорогоцінний час.

Спосіб 1. Перевірте деталі в папці файлів

У тексті ми наведемо приклад під середовищем Windows 7.

1. Спочатку організуйте всі документи для перевірки в одній папці.
2. Потім відкрийте папку з файлами та натисніть кнопку «Інші параметри» поруч із «Змінити перегляд».  
3. Далі натисніть «Деталі».
4. Тепер клацніть правою кнопкою миші рядок заголовка та виберіть «Ще».
5. У діалоговому вікні «Вибрати деталі» встановіть прапорці «Сторінки» та «Кількість слів».
6. Потім натисніть «ОК».

Тепер буде 2 нові колонки, де відображатимуться сторінки та слова кожного документа. Потрібно просто скласти ці числа.

Однак цей метод надає лише приблизну кількість слів у кожному файлі. Таким чином, щоб отримати точнішу цифру, ви можете вибрати спосіб 2.

Спосіб 2: Створіть макрос

1. Аналогічно, спочатку помістіть усі цільові документи в одну папку з файлами.
2. Потім відкрийте Word і натисніть вкладку «Розробник».
3. Потім натисніть «Visual Basic», щоб відкрити редактор VBA. Або ви можете просто натиснути «Alt+F11».
4. Тепер натисніть «Звичайний» і «Вставити».
5. Потім виберіть «Модуль».
6. Потім двічі клацніть новий модуль і вставте наступні коди в область редагування:

Sub GetAllPageNumbers()
  Dim objWordApplication As Word.Application
  Dim nPageNumber As Long
  Dim nWordNumber As Long
  Dim objFile As Variant
  Dim objFileSystem As Object
  Dim objFolders As Object

  nPageNumber = 0
  Set objWordApplication = New Word.Application
  Set objFileSystem = CreateObject("scripting.filesystemobject")
  Set objFolders = objFileSystem.getfolder("C:\Users\Test\Desktop\files")  

  For Each objFile In objFolders.Files
    '  Only process non-hidden files
    If (objFile.Attributes And 2) = 0 Then
      With objWordApplication
        .Documents.Open (objFile)
        nPageNumber = nPageNumber + .ActiveDocument.ComputeStatistics(wdStatisticPages)
        nWordNumber = nWordNumber + .ActiveDocument.ComputeStatistics(wdStatisticWords)
        .ActiveDocument.Close (False)
      End With
    End If
  Next objFile

  MsgBox ("pages:" & nPageNumber & " " & "words:" & nWordNumber)

  Set objFile = Nothing
  Set objFileSystem = Nothing
  Set objFolders = Nothing
  Set objWordApplication = Nothing
End Sub

7. Нарешті натисніть «Виконати». Потім вас привітає вікно повідомлення із зазначенням номера сторінки та загальної кількості слів, як-от нижче:

Примітка: «C:\Users\Test\Desktop\files» стосується розташування папки файлу.

Слідкуйте за пошкодженням документів

Оскільки ми щодня маємо справу з різноманітними звітами, радимо створити резервні копії деяких критичних файлів на випадок, якщо вони будуть пошкоджені, оскільки резервне копіювання завжди є важливою частиною мережі безпеки для захисту цілісності файлів. Однак фактом є те, що резервні копії також можуть стати жертвою корупції. І ось тоді вам знадобиться першорядний інструмент для відновлення пошкоджених файлів Word

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

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