2 hurtige måder at tælle det samlede antal sider og ord på flere orddokumenter

I denne artikel viser vi dig 2 hurtige og effektive måder at tælle det samlede antal sider og ord på flere Word-dokumenter.

Af og til, mens vi arbejder på et langt dokument, har vi en tendens til at opdele indholdet i flere Word-filer, såsom at placere forskellige kapitler i flere dokumenter. Så når det kommer til at tælle det samlede antal sider og ord, kan det være lidt trættende, da du skal åbne hvert enkelt dokument og kontrollere oplysningerne.

Derfor viser vi 2 hurtige metoder til at hjælpe med at spare din dyrebare tid.

Metode 1: Kontroller detaljer i filmappe

I teksten vil vi give et eksempel under miljøet i Windows 7.

1. Først skal du organisere alle dokumenter, der skal kontrolleres i en filmappe.
2. Åbn derefter filmappen, og klik på knappen "Flere valgmuligheder" ud for "Skift visning".  
3. Klik derefter på "Detaljer".
4. Højreklik nu på overskriftsrækken, og vælg “Mere”.
5. Marker afkrydsningsfelterne "Sider" og "Antal ord" i dialogboksen "Vælg detaljer".
6. Klik derefter på “OK”.

Nu vil der være to nye kolonner, der viser siderne og ordene i hvert dokument. Du skal bare tilføje disse tal sammen.

Denne metode giver dig kun et omtrentligt antal ord i hver fil. For at få et mere nøjagtigt tal kan du således vælge metode 2.

Metode 2: Opret en makro

1. På samme måde skal du først placere alle måldokumenter i én filmappe.
2. Åbn derefter Word, og klik på fanen "Udvikler".
3. Klik derefter på “Visual Basic” for at åbne VBA-editoren. Eller du kan bare trykke på "Alt + F11".
4. Klik nu på “Normal” og “Indsæt”.
5. Vælg derefter “Module”.
6. Dobbeltklik derefter på det nye modul, og indsæt følgende koder i redigeringsområdet:

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. Til sidst skal du klikke på “Kør”. Derefter vil du blive mødt af en meddelelsesboks, der angiver sidetallet og de samlede ord, som nedenfor:

Bemærk: "C: \ Brugere \ Test \ Desktop \ filer" henviser til filmappens placering.

Pas på dokumentkorruption

Da vi skal håndtere alle slags rapporter hver dag, er det tilrådeligt at tage backup af nogle kritiske filer, hvis de bliver beskadiget, fordi sikkerhedskopiering altid er en vigtig del af sikkerhedsnet for at beskytte filintegritet. Faktum er imidlertid, at sikkerhedskopier også kan mislykkes offer for korruption. Og det er når du får brug for en fremtrædende beskadiget Word-filgendannelsesværktøj

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder xlsx værktøj til reparation af dataproblemer og pdf produkter til reparation af software. For mere information besøg www.datanumen.com