In dit artikel laten we u 2 snelle en effectieve manieren zien om het totale aantal pagina's en woorden voor meerdere Word-documenten te tellen.
Af en toe, terwijl we aan een lang document werken, hebben we de neiging om de inhoud op te splitsen in verschillende Word-bestanden, zoals het plaatsen van verschillende hoofdstukken in meerdere documenten. Als het dan aankomt op het tellen van het totale aantal pagina's en woorden, kan het een beetje vervelend zijn, aangezien u elk afzonderlijk document moet openen en de informatie moet controleren.
Daarom noemen we 2 snelle methoden om u te helpen uw kostbare tijd te besparen.
Methode 1: Controleer de details in de bestandsmap
In de tekst geven we een voorbeeld onder de omgeving van Windows 7.
- Organiseer eerst alle documenten die moeten worden gecontroleerd in één bestandsmap.
- Open vervolgens de bestandsmap en klik op de knop "Meer opties" naast "Uw weergave wijzigen".
- Klik vervolgens op "Details".
- Klik nu met de rechtermuisknop op de kopregel en kies "Meer".
- Vink in het dialoogvenster "Details kiezen" de vakjes "Pagina's" en "Aantal woorden" aan.
- Klik vervolgens op "OK".
Nu komen er 2 nieuwe kolommen met de pagina's en woorden van elk document. U hoeft deze nummers alleen bij elkaar op te tellen.
Deze methode geeft u echter slechts een geschat aantal woorden in elk bestand. Om een nauwkeuriger cijfer te krijgen, kunt u dus methode 2 kiezen.
Methode 2: maak een macro
- Plaats op dezelfde manier eerst alle betreffende documenten in één map.
- Open vervolgens Word en klik op het tabblad "Ontwikkelaar".
- Klik vervolgens op "Visual Basic" om de VBA-editor te openen. Of u kunt gewoon op "Alt + F11" drukken.
- Klik nu op "Normaal" en "Invoegen".
- Kies dan voor “Module”.
- Dubbelklik vervolgens op de nieuwe module en plak de volgende codes in het bewerkingsgebied:
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
- Klik ten slotte op "Uitvoeren". Vervolgens wordt u begroet door een berichtvenster met het paginanummer en het totale aantal woorden, zoals hieronder:
Opmerking: De "C: \ Users \ Test \ Desktop \ files" verwijst naar de locatie van de bestandsmap.
Pas op voor corruptie van documenten
Omdat we elke dag met allerlei soorten rapporten te maken hebben, is het raadzaam om een back-up te maken van enkele kritieke bestanden voor het geval ze beschadigd raken, omdat back-up altijd een essentieel onderdeel is van het vangnet om de bestandsintegriteit te beschermen. Het is echter een feit dat back-ups ook het slachtoffer kunnen worden van corruptie. En dat is wanneer je een vooraanstaand persoon nodig hebt Herstelprogramma voor beschadigde Word-bestanden
Auteur Introductie:
Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder xlsx dataprobleem reparatie tool en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com