2 raske måter å telle totalt antall sider og ord for flere Word-dokumenter

I denne artikkelen vil vi vise deg 2 raske og effektive måter å telle totalt antall sider og ord for flere Word-dokumenter.

Nå og da, mens vi jobber med et langt dokument, har vi en tendens til å dele innholdet i flere Word-filer, for eksempel å plassere forskjellige kapitler i flere dokumenter. Når det så kommer til å telle totalt antall sider og ord, kan det være litt slitsomt, siden du må åpne hvert enkelt dokument og sjekke informasjonen.

Derfor lister vi opp 2 raske metoder for å spare dyrebar tid.

Metode 1: Sjekk detaljer i filmappen

I teksten vil vi gi et eksempel under Windows 7-miljøet.

1. Først av, organiser alle dokumenter som skal sjekkes i én filmappe.
2. Åpne deretter filmappen og klikk på "Flere alternativer"-knappen ved siden av "Endre visningen".  
3. Klikk deretter på "Detaljer".
4. Høyreklikk nå på overskriftsraden og velg "Mer".
5. I "Velg detaljer"-dialogboksen merker du av for "Sider" og "Ordtelling".
6. Klikk deretter “OK”.

Nå vil det være 2 nye kolonner, som viser sidene og ordene i hvert dokument. Du trenger bare å legge disse tallene sammen.

Denne metoden gir deg imidlertid bare et omtrentlig antall ord i hver fil. For å få en mer nøyaktig figur kan du derfor velge metode 2.

Metode 2: Lag en makro

1. På samme måte bør du først legge alle måldokumentene i én filmappe.
2. Åpne deretter Word og klikk på "Utvikler"-fanen.
3. Klikk deretter på "Visual Basic" for å åpne VBA-editoren. Eller du kan ganske enkelt trykke "Alt + F11".
4. Klikk nå "Normal" og "Sett inn".
5. Velg deretter "Modul".
6. Dobbeltklikk deretter på den nye modulen og lim inn følgende koder på 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 slutt klikker du på "Kjør". Deretter vil du bli møtt av en meldingsboks som angir sidetall og totalt antall ord, slik som nedenfor:

Merk: "C:\Users\Test\Desktop\files" refererer til filmappens plassering.

Se opp dokumentkorrupsjon

Siden vi må håndtere alle typer rapporter hver dag, er det tilrådelig å sikkerhetskopiere noen kritiske filer i tilfelle de blir ødelagt, fordi sikkerhetskopiering alltid er en viktig del av sikkerhetsnettet for å beskytte filintegriteten. Men faktum er at sikkerhetskopier også kan svikte offer for korrupsjon. Og det er da du trenger en fremtredende gjenopprettingsverktøy for ødelagte Word-filer

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert xlsx reparasjonsverktøy for dataproblem og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med