2 kiiret viisi mitme Wordi dokumendi lehtede ja sõnade koguarvu loendamiseks

Selles artiklis näitame teile 2 kiiret ja tõhusat viisi mitme Wordi dokumendi lehtede ja sõnade koguarvu loendamiseks.

Aeg-ajalt kipume pika dokumendi kallal töötades jagama sisu mitmeks Wordi failiks, näiteks paigutama mitmesse dokumenti erinevad peatükid. Siis võib lehekülgede ja sõnade koguarvu kokkulugemine olla veidi tüütu, kuna peate iga dokumendi eraldi avama ja teavet kontrollima.

Seetõttu loetleme 2 kiiret meetodit, mis aitavad säästa teie väärtuslikku aega.

1. meetod: kontrollige failikaustas üksikasju

Tekstis toome näite Windows 7 keskkonnas.

1. Kõigepealt korraldage kõik kontrollitavad dokumendid ühte failikausta.
2. Seejärel avage failikaust ja klõpsake valiku "Muuda oma vaadet" kõrval olevat nuppu "Rohkem valikuid".  
3. Järgmisena klõpsake nuppu "Üksikasjad".
4. Nüüd paremklõpsake päise real ja valige "Veel".
5. Dialoogiboksis "Vali üksikasjad" märkige ruudud "Leheküljed" ja "Sõnade arv".
6. Seejärel klõpsake nuppu "OK".

Nüüd on 2 uut veergu, mis näitavad iga dokumendi lehti ja sõnu. Peate need numbrid lihtsalt kokku liitma.

Kuid see meetod annab teile igas failis ainult ligikaudse arvu sõnu. Seega saate täpsema arvu saamiseks valida 2. meetodi.

2. meetod: looge makro

1. Samamoodi pange kõik sihtdokumendid kõigepealt ühte failikausta.
2. Seejärel avage Word ja klõpsake vahekaarti "Arendaja".
3. Järgmisena klõpsake VBA redaktori avamiseks "Visual Basic". Või võite lihtsalt vajutada "Alt + F11".
4. Nüüd klõpsake "Tavaline" ja "Lisa".
5. Seejärel valige "Moodul".
6. Järgmisena topeltklõpsake uuel moodulil ja kleepige redigeerimisalale järgmised koodid:

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. Lõpuks klõpsake nuppu "Käivita". Seejärel tervitab teid sõnumikast, mis näitab lehekülje numbrit ja sõnade koguarvu, näiteks allpool:

Märkus. „C:\Users\Test\Desktop\files” viitab failikausta asukohale.

Ettevaatust dokumentide korruptsiooniga

Kuna me peame iga päev tegelema igasuguste aruannetega, on soovitatav varundada mõned olulised failid juhuks, kui need saavad rikutud, sest varundamine on alati failide terviklikkuse kaitsmise turvavõrgu oluline osa. Fakt on aga see, et varukoopiad võivad ka korruptsiooni ohvriks langeda. Ja see on siis, kui teil on vaja esikoha rikutud Wordi faili taastamise tööriist

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas xlsx andmeprobleemide parandamise tööriist ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom