2 rýchle spôsoby, ako spočítať celkový počet strán a slov pre viac dokumentov Word

V tomto článku si ukážeme 2 rýchle a efektívne spôsoby počítania celkového počtu strán a slov pre viac dokumentov Word.

Pri práci na dlhom dokumente máme občas tendenciu deliť obsah na niekoľko súborov Word, napríklad umiestňovať rôzne kapitoly do viacerých dokumentov. Pokiaľ ide o spočítanie celkového počtu stránok a slov, môže to byť trochu únavné, pretože musíte otvoriť každý jednotlivý dokument a skontrolovať informácie.

Preto uvádzame 2 rýchle metódy, ktoré vám pomôžu ušetriť váš drahocenný čas.

Metóda 1: Skontrolujte podrobnosti v priečinku súborov

V texte uvedieme príklad v prostredí Windows 7.

1. Najskôr usporiadajte všetky dokumenty, ktoré sa majú skontrolovať, do jedného priečinka so súbormi.
2. Potom otvorte priečinok so súbormi a kliknite na tlačidlo „Ďalšie možnosti“ vedľa položky „Zmeniť zobrazenie“.  
3. Ďalej kliknite na „Podrobnosti“.
4. Teraz kliknite pravým tlačidlom myši na riadok hlavičky a vyberte možnosť „Viac“.
5. V dialógovom okne „Vybrať podrobnosti“ začiarknite políčka „Stránky“ a „Počet slov“.
6. Potom kliknite na „OK“.

Teraz budú k dispozícii 2 nové stĺpce s stránkami a slovami každého dokumentu. Je len potrebné tieto čísla spočítať.

Táto metóda vám však poskytuje iba približný počet slov v každom súbore. Ak chcete získať presnejšiu hodnotu, môžete zvoliť metódu 2.

Metóda 2: Vytvorenie makra

1. Podobne najprv umiestnite všetky cieľové dokumenty do jedného priečinka so súbormi.
2. Potom otvorte program Word a kliknite na kartu Vývojár.
3. Ďalej kliknite na „Visual Basic“ a otvorte editor VBA. Alebo môžete jednoducho stlačiť klávesovú skratku „Alt + F11“.
4. Teraz kliknite na „Normálne“ a „Vložiť“.
5. Potom zvoľte „Modul“.
6. Ďalej dvakrát kliknite na nový modul a vložte nasledujúce kódy do oblasti úprav:

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. Nakoniec kliknite na tlačidlo „Spustiť“. Potom vás privíta správa so správou, ktorá obsahuje číslo stránky a celkový počet slov, napríklad nižšie:

Poznámka: Výraz „C: Users Users Test Desktop“ odkazuje na umiestnenie priečinka so súbormi.

Pozor na korupciu dokumentov

Pretože musíme každý deň spracovávať všetky druhy správ, je vhodné zálohovať niektoré dôležité súbory pre prípad, že dôjde k ich poškodeniu, pretože zálohovanie je vždy dôležitou súčasťou bezpečnostnej siete na ochranu integrity súborov. Faktom však je, že zálohy sa tiež môžu stať obeťou korupcie. A vtedy budete potrebovať osobnosť poškodený nástroj na obnovu súborov Word

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane nástroj na opravu problému s údajmi xlsx a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S