2 brza načina za brojanje ukupnog broja stranica i riječi za više Word dokumenata

U ovom ćemo vam članku pokazati 2 brza i učinkovita načina za brojanje ukupnog broja stranica i riječi za više Word dokumenata.

Tu i tamo, dok radimo na dugom dokumentu, skloni smo podijeliti sadržaj u nekoliko Word datoteka, kao što je postavljanje različitih poglavlja u više dokumenata. Onda kada je u pitanju brojanje ukupnog broja stranica i riječi, to može biti malo zamorno, jer morate otvoriti svaki pojedinačni dokument i provjeriti podatke.

Stoga navodimo 2 brze metode koje će vam pomoći uštedjeti dragocjeno vrijeme.

Metoda 1: Provjerite pojedinosti u mapi datoteke

U tekstu ćemo dati primjer pod okruženjem Windows 7.

1. Najprije organizirajte sve dokumente koje treba provjeriti u jednu mapu datoteka.
2. Zatim otvorite mapu s datotekama i kliknite gumb "Više opcija" pokraj "Promijeni prikaz".  
3. Zatim kliknite na "Detalji".
4. Sada desnom tipkom miša kliknite redak zaglavlja i odaberite "Više".
5. U dijaloškom okviru "Odaberi pojedinosti" potvrdite okvire "Stranice" i "Broj riječi".
6. Zatim kliknite "U redu".

Sada će biti 2 nova stupca, u kojima će biti prikazane stranice i riječi svakog dokumenta. Samo trebate zbrojiti ove brojeve.

Međutim, ova vam metoda daje samo približan broj riječi u svakoj datoteci. Dakle, da biste dobili točniju brojku, možete odabrati metodu 2.

Metoda 2: Stvorite makronaredbu

1. Slično tome, prvo sve ciljne dokumente stavite u jednu mapu datoteka.
2. Zatim otvorite Word i kliknite karticu "Developer".
3. Zatim kliknite "Visual Basic" da biste otvorili VBA uređivač. Ili možete jednostavno pritisnuti “Alt+ F11”.
4. Sada kliknite "Normalno" i "Umetni".
5. Zatim odaberite "Modul".
6. Zatim dvaput kliknite na novi modul i zalijepite sljedeće kodove u područje za uređivanje:

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. Na kraju kliknite "Pokreni". Zatim će vas pozdraviti okvir s porukom, navodeći broj stranice i ukupan broj riječi, kao što je dolje:

Napomena: “C:\Users\Test\Desktop\files” odnosi se na lokaciju mape datoteke.

Pazite na oštećenje dokumenata

Budući da se svaki dan moramo nositi sa svim vrstama izvješća, preporučljivo je napraviti sigurnosnu kopiju nekih kritičnih datoteka u slučaju da se oštete jer je sigurnosna kopija uvijek vitalni dio sigurnosne mreže za zaštitu integriteta datoteka. Međutim, činjenica je da sigurnosne kopije također mogu biti žrtve korupcije. I tada će vam trebati preeminent alat za oporavak oštećene Word datoteke

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xlsx alat za popravak problema s podacima i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com