2 rychlé způsoby, jak spočítat celkový počet stránek a slov pro více dokumentů Word

V tomto článku vám ukážeme 2 rychlé a efektivní způsoby, jak spočítat celkový počet stránek a slov pro více dokumentů aplikace Word.

Občas při práci na dlouhém dokumentu máme tendenci rozdělit obsah do několika souborů aplikace Word, například umístit různé kapitoly do více dokumentů. Pokud jde o spočítání celkového počtu stránek a slov, může to být trochu únavné, protože musíte otevřít každý jednotlivý dokument a zkontrolovat informace.

Proto uvádíme 2 rychlé metody, které vám pomohou ušetřit váš drahocenný čas.

Metoda 1: Zkontrolujte podrobnosti ve složce souborů

V textu uvedeme příklad v prostředí Windows 7.

1. Nejprve uspořádejte všechny dokumenty ke kontrole do jedné složky souborů.
2. Poté otevřete složku se soubory a klikněte na tlačítko „Další možnosti“ vedle položky „Změnit zobrazení“.  
3. Dále klikněte na „Podrobnosti“.
4. Nyní klikněte pravým tlačítkem na řádek záhlaví a vyberte „Více“.
5. V dialogovém okně „Vybrat podrobnosti“ zaškrtněte políčka „Stránky“ a „Počet slov“.
6. Poté klikněte na „OK“.

Nyní budou 2 nové sloupce s stránkami a slovy každého dokumentu. Musíte jen sečíst tato čísla.

Tato metoda vám však poskytuje pouze přibližný počet slov v každém souboru. Chcete-li tedy získat přesnější údaj, můžete zvolit metodu 2.

Metoda 2: Vytvoření makra

1. Podobně nejprve umístěte všechny cílové dokumenty do jedné složky.
2. Poté otevřete Word a klikněte na kartu „Vývojář“.
3. Poté klikněte na „Visual Basic“ a otevřete editor VBA. Nebo můžete jednoduše stisknout „Alt + F11“.
4. Nyní klikněte na „Normální“ a „Vložit“.
5. Poté zvolte „Modul“.
6. Dále dvakrát klikněte na nový modul a vložte následující kódy do editační oblasti:

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. Nakonec klikněte na „Spustit“. Poté vás přivítá okno se zprávou, které uvádí číslo stránky a celkový počet slov, například níže:

Poznámka: „C: \ Users \ Test \ Desktop \ files“ odkazuje na umístění složky se soubory.

Dávejte pozor na korupci dokumentů

Jelikož musíme každý den řešit všechny druhy zpráv, je vhodné zálohovat některé důležité soubory pro případ, že by došlo k jejich poškození, protože zálohování je vždy důležitou součástí bezpečnostní sítě k ochraně integrity souborů. Faktem však je, že zálohy mohou také selhat jako oběť korupce. A tehdy budete potřebovat jednoho z předních poškozený nástroj pro obnovu souborů Word

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně Nástroj na opravu problému s daty xlsx a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com