Bir nechta Word hujjatlari uchun sahifalar va so'zlarning umumiy sonini hisoblashning 2 ta tezkor usuli

Ushbu maqolada biz bir nechta Word hujjatlari uchun sahifalar va so'zlarning umumiy sonini hisoblashning 2 ta tez va samarali usulini ko'rsatamiz.

Vaqti-vaqti bilan, uzoq hujjat ustida ishlayotganda, biz tarkibni bir nechta Word fayllariga bo'lishga moyilmiz, masalan, bir nechta hujjatlarga turli boblarni joylashtirish. Keyin sahifalar va so'zlarning umumiy sonini hisoblashga kelganda, bu biroz zerikarli bo'lishi mumkin, chunki siz har bir alohida hujjatni ochib, ma'lumotlarni tekshirishingiz kerak.

Shuning uchun biz qimmatli vaqtingizni tejashga yordam beradigan 2 ta tezkor usulni sanab o'tamiz.

1-usul: Fayl papkasida tafsilotlarni tekshiring

Matnda biz Windows 7 muhitida misol keltiramiz.

1. Birinchidan, tekshiriladigan barcha hujjatlarni bitta fayl papkasida tartibga soling.
2. Keyin fayl jildini oching va "Ko'rinishni o'zgartirish" yonidagi "Qo'shimcha imkoniyatlar" tugmasini bosing.  
3. Keyin "Tafsilotlar" ni bosing.
4. Endi sarlavha qatoriga o'ng tugmasini bosing va "Ko'proq" ni tanlang.
5. "Tafsilotlarni tanlash" dialog oynasida "Sahifalar" va "So'zlar soni" katakchalarini belgilang.
6. Keyin "OK" tugmasini bosing.

Endi har bir hujjatning sahifalari va so'zlarini ko'rsatadigan ikkita yangi ustun bo'ladi. Siz shunchaki bu raqamlarni qo'shishingiz kerak.

Biroq, bu usul faqat har bir fayldagi so'zlarning taxminiy sonini beradi. Shunday qilib, aniqroq raqamni olish uchun siz 2-usulni tanlashingiz mumkin.

2-usul: Makro yarating

1. Xuddi shunday, avval barcha maqsadli hujjatlarni bitta fayl papkasiga joylashtiring.
2. Keyin Word-ni oching va "Tuzuvchi" yorlig'ini bosing.
3. Keyin VBA muharririni ochish uchun "Visual Basic" tugmasini bosing. Yoki siz shunchaki “Alt+ F11” tugmachalarini bosishingiz mumkin.
4. Endi "Oddiy" va "Qo'shish" ni bosing.
5. Keyin "Modul" ni tanlang.
6. Keyin yangi modulni ikki marta bosing va tahrirlash maydoniga quyidagi kodlarni joylashtiring:

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. Nihoyat, "Ishga tushirish" tugmasini bosing. Keyin sizni sahifa raqami va jami so'zlar ko'rsatilgan xabar oynasi kutib oladi, masalan:

Eslatma: “C:\Users\Test\Desktop\files” fayl papkasining joylashuviga ishora qiladi.

Hujjatlarning buzilishiga e'tibor bering

Biz har kuni har xil hisobotlar bilan shug'ullanishimiz kerak bo'lganligi sababli, ba'zi muhim fayllar buzilgan taqdirda ularni zaxiralash tavsiya etiladi, chunki zaxiralash har doim fayl yaxlitligini himoya qilish uchun xavfsizlik tarmog'ining muhim qismidir. Biroq, haqiqat shundaki, zaxira nusxalari ham korruptsiya qurboni bo'lishi mumkin. Va o'sha paytda sizga ustunlik kerak bo'ladi buzilgan Word faylini tiklash vositasi

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc xlsx ma'lumotlar muammolarini tuzatish vositasi va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com