2 ātri veidi, kā saskaitīt kopējo lapu un vārdu skaitu vairākiem Word dokumentiem

Šajā rakstā mēs parādīsim 2 ātrus un efektīvus veidus, kā saskaitīt kopējo lappušu un vārdu skaitu vairākiem Word dokumentiem.

Reizēm, strādājot pie gara dokumenta, mēs mēdzam sadalīt saturu vairākos Word failos, piemēram, ievietojot dažādas nodaļas vairākos dokumentos. Tad, kad runa ir par kopējo lappušu un vārdu skaita saskaitīšanu, tas var būt nedaudz nogurdinoši, jo jums ir jāatver katrs dokuments atsevišķi un jāpārbauda informācija.

Tāpēc mēs uzskaitām 2 ātras metodes, kas palīdzēs ietaupīt jūsu dārgo laiku.

1. metode. Failu mapē pārbaudiet informāciju

Tekstā mēs sniegsim piemēru Windows 7 vidē.

1. Vispirms sakārtojiet visus pārbaudāmos dokumentus vienā failu mapē.
2. Pēc tam atveriet failu mapi un noklikšķiniet uz pogas "Vairāk opciju" blakus "Mainīt skatu".  
3. Tālāk noklikšķiniet uz "Detaļas".
4. Tagad ar peles labo pogu noklikšķiniet uz galvenes rindas un izvēlieties "Vairāk".
5. Dialoglodziņā “Izvēlēties informāciju” atzīmējiet izvēles rūtiņas “Lapas” un “Vārdu skaits”.
6. Pēc tam noklikšķiniet uz Labi.

Tagad būs 2 jaunas kolonnas, kurās būs redzamas katra dokumenta lapas un vārdi. Jums vienkārši jāsaskaita šie skaitļi.

Tomēr šī metode nodrošina tikai aptuvenu vārdu skaitu katrā failā. Tādējādi, lai iegūtu precīzāku skaitli, varat izvēlēties 2. metodi.

2. metode: izveidojiet makro

1. Līdzīgi vispirms ievietojiet visus mērķa dokumentus vienā failu mapē.
2. Pēc tam atveriet programmu Word un noklikšķiniet uz cilnes Izstrādātājs.
3. Pēc tam noklikšķiniet uz Visual Basic, lai atvērtu VBA redaktoru. Vai arī vienkārši nospiediet taustiņu kombināciju Alt + F11.
4. Tagad noklikšķiniet uz "Normāls" un "Ievietot".
5. Pēc tam izvēlieties “Module”.
6. Pēc tam veiciet dubultklikšķi uz jaunā moduļa un ielīmējiet šādus kodus rediģēšanas apgabalā:

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. Visbeidzot noklikšķiniet uz "Palaist". Pēc tam jūs sagaidīs ziņojumu lodziņš, kurā būs norādīts lapas numurs un vārdu kopskaits, piemēram:

Piezīme. “C:\Users\Test\Desktop\files” attiecas uz faila mapes atrašanās vietu.

Uzmanieties no dokumentu korupcijas

Tā kā mums katru dienu ir jāsaskaras ar visa veida pārskatiem, ir ieteicams dublēt dažus svarīgus failus, ja tie tiek bojāti, jo dublēšana vienmēr ir svarīga drošības tīkla sastāvdaļa, lai aizsargātu failu integritāti. Tomēr fakts ir tāds, ka dublējumkopijas var arī kļūt par korupcijas upuriem. Un tieši tad jums būs nepieciešams izcils bojātu Word failu atkopšanas rīks

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp xlsx datu problēmu labošanas rīks un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar