2 hitra načina za štetje skupnega števila strani in besed za več dokumentov Word

V tem članku vam bomo pokazali 2 hitra in učinkovita načina za štetje skupnega števila strani in besed za več Wordovih dokumentov.

Občasno, ko delamo na dolgem dokumentu, smo nagnjeni k razdelitvi vsebine v več Wordovih datotek, kot je umeščanje različnih poglavij v več dokumentov. Potem, ko gre za štetje skupnega števila strani in besed, je to lahko nekoliko utrujajoče, saj morate odpreti vsak posamezen dokument in preveriti podatke.

Zato navajamo 2 hitri metodi, ki vam bosta pomagali prihraniti dragoceni čas.

1. način: Preverite podrobnosti v mapi z datotekami

V besedilu bomo podali primer v okolju Windows 7.

1. Najprej organizirajte vse dokumente, ki jih želite preveriti, v eni datotečni mapi.
2. Nato odprite mapo z datotekami in kliknite gumb »Več možnosti« poleg možnosti »Spremeni pogled«.  
3. Nato kliknite »Podrobnosti«.
4. Zdaj z desno miškino tipko kliknite vrstico glave in izberite »Več«.
5. V pogovornem oknu »Izberi podrobnosti« potrdite polja »Strani« in »Število besed«.
6. Nato kliknite »V redu«.

Zdaj bosta na voljo 2 nova stolpca, v katerih bodo prikazane strani in besede vsakega dokumenta. Te številke morate samo sešteti.

Vendar vam ta metoda zagotovi le približno število besed v vsaki datoteki. Tako lahko za natančnejši podatek izberete metodo 2.

2. način: ustvarite makro

1. Podobno najprej shranite vse ciljne dokumente v eno mapo z datotekami.
2. Nato odprite Word in kliknite zavihek »Razvijalec«.
3. Nato kliknite »Visual Basic«, da odprete urejevalnik VBA. Lahko pa preprosto pritisnete »Alt + F11«.
4. Zdaj kliknite »Normalno« in »Vstavi«.
5. Nato izberite »Modul«.
6. Nato dvakrat kliknite na nov modul in prilepite naslednje kode v območje za urejanje:

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. Nazadnje kliknite »Zaženi«. Nato vas bo pozdravilo okno s sporočilom, ki bo navedlo številko strani in skupno število besed, kot je spodaj:

Opomba: »C:\Users\Test\Desktop\files« se nanaša na lokacijo mape datotek.

Pazite na poškodbe dokumentov

Ker imamo vsak dan opravka z najrazličnejšimi poročili, je priporočljivo narediti varnostno kopijo nekaterih kritičnih datotek, če se poškodujejo, saj je varnostna kopija vedno pomemben del varnostne mreže za zaščito celovitosti datotek. Dejstvo pa je, da tudi varnostne kopije lahko postanejo žrtve korupcije. In takrat boste potrebovali preeminenta orodje za obnovitev poškodovanih Wordovih datotek

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z orodje za popravilo težav s podatki xlsx in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com