Två snabba sätt att räkna det totala antalet sidor och ord för flera orddokument

I den här artikeln visar vi dig två snabba och effektiva sätt att räkna det totala antalet sidor och ord för flera Word-dokument.

Ibland, medan vi arbetar med ett långt dokument, tenderar vi att dela upp innehåll i flera Word-filer, till exempel att placera olika kapitel i flera dokument. Sedan när det gäller att räkna det totala antalet sidor och ord kan det vara lite tröttsamt, eftersom du måste öppna varje enskilt dokument och kontrollera informationen.

Därför listar vi två snabba metoder för att spara din dyrbara tid.

Metod 1: Kontrollera detaljer i filmapp

I texten kommer vi att ge ett exempel under Windows 7-miljön.

1. Först och främst, organisera alla dokument som ska kontrolleras i en filmapp.
2. Öppna sedan filmappen och klicka på knappen "Fler alternativ" bredvid "Ändra din vy".  
3. Klicka sedan på “Detaljer”.
4. Högerklicka nu på rubrikraden och välj “Mer”.
5. I dialogrutan "Välj detaljer" markerar du rutorna "Sidor" och "Antal ord".
6. Klicka sedan på “OK”.

Nu kommer det att finnas två nya kolumner som visar sidorna och orden i varje dokument. Du behöver bara lägga till dessa siffror.

Men den här metoden ger dig bara ett ungefärligt antal ord i varje fil. Således, för att få en mer exakt siffra, kan du välja metod 2.

Metod 2: Skapa en makro

1. På samma sätt, placera först alla måldokument i en filmapp.
2. Öppna sedan Word och klicka på fliken "Utvecklare".
3. Klicka sedan på “Visual Basic” för att öppna VBA-redigeraren. Eller så kan du helt enkelt trycka på "Alt + F11".
4. Klicka nu på “Normal” och “Infoga”.
5. Välj sedan ”Modul”.
6. Nästa dubbelklicka på den nya modulen och klistra in följande 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. Slutligen klickar du på "Kör". Då hälsas du av en meddelandefält som anger sidnummer och totala ord, såsom nedan:

Obs: "C: \ Users \ Test \ Desktop \ files" hänvisar till filmappens plats.

Se upp dokumentkorruption

Eftersom vi måste hantera alla typer av rapporter varje dag, är det lämpligt att säkerhetskopiera vissa kritiska filer om de blir skadade eftersom säkerhetskopiering alltid är en viktig del av säkerhetsnätet för att skydda filens integritet. Faktum är dock att säkerhetskopior också kan misslyckas med korruption. Och det är då du behöver en framstående skadad Word-filåterställningsverktyg

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive xlsx dataproblem reparationsverktyg och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com