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

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

S vremena na vrijeme, 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 prebrojavanje ukupnog broja stranica i riječi, to može biti malo zamorno, jer morate otvoriti svaki pojedinačni dokument i provjeriti informacije.

Stoga navodimo 2 brze metode kako biste uštedjeli vaše dragocjeno vrijeme.

Metoda 1: Provjerite detalje u fascikli datoteka

U tekstu ćemo dati primjer u okruženju Windows 7.

1. Prvo, organizirajte sve dokumente za provjeru u jednu fasciklu.
2. Zatim otvorite fasciklu sa datotekama i kliknite na dugme „Više opcija“ pored „Promeni prikaz“.  
3. Zatim kliknite na “Detalji”.
4. Sada kliknite desnim tasterom miša na red zaglavlja i izaberite „Više“.
5. U dijaloškom okviru “Odaberi detalje” potvrdite okvire “Stranice” i “Broj riječi”.
6. Zatim kliknite "OK".

Sada će postojati 2 nove kolone, u kojima će biti prikazane stranice i riječi svakog dokumenta. Samo trebate sabrati ove brojeve.

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

Metoda 2: Kreirajte makro

1. Slično tome, prvo stavite sve ciljne dokumente u jednu mapu datoteka.
2. Zatim otvorite Word i kliknite na karticu "Programer".
3. Zatim kliknite na "Visual Basic" da otvorite VBA editor. Ili možete jednostavno pritisnuti “Alt+ F11”.
4. Sada kliknite na “Normal” i “Insert”.
5. Zatim odaberite “Module”.
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 na “Run”. Tada će vas dočekati okvir s porukom, navodeći broj stranice i ukupan broj riječi, kao što je dolje:

Napomena: “C:\Users\Test\Desktop\files” se odnosi na lokaciju fascikle datoteka.

Pazite na korupciju dokumenata

Budući da se svakodnevno moramo baviti svim vrstama izvještaja, 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 rezervne kopije takođe mogu biti žrtve korupcije. I tada će vam trebati vrhunski oštećen alat za oporavak Word datoteka

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xlsx alat za popravku problema sa podacima i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com