2 бързи начина за изчисляване на общия брой страници и думи за множество документи с думи

В тази статия ще ви покажем 2 бързи и ефективни начина за преброяване на общия брой страници и думи за множество документи на Word.

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

Ето защо, ние изброяваме 2 бързи метода, за да спестите вашето ценно време.

Метод 1: Проверете подробности във файловата папка

В текста ще дадем пример в средата на Windows 7.

1. Първо, организирайте всички документи за проверка в една папка с файлове.
2. След това отворете папката с файлове и щракнете върху бутона „Още опции“ до „Промяна на вашия изглед“.  
3. След това щракнете върху „Подробности“.
4. Сега щракнете с десния бутон върху заглавния ред и изберете „Още“.
5. В диалоговия прозорец „Избор на подробности“ поставете отметки в квадратчетата „Страници“ и „Брой думи“.
6. След това щракнете върху „OK“.

Сега ще има 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