Олон үгийн баримт бичгийн нийт хуудас, үгийн тоог тоолох 2 хурдан арга

Энэ нийтлэлд бид олон Word баримт бичгийн хуудасны нийт тоо, үгийг тоолох 2 хурдан бөгөөд үр дүнтэй аргыг танд үзүүлэх болно.

Урт хугацааны баримт бичиг дээр ажиллаж байхдаа бид агуулгыг хэд хэдэн Word файл болгон хуваах хандлагатай байдаг, тухайлбал олон баримт бичигт янз бүрийн бүлгүүдийг байрлуулах. Нийт хуудас, үгсийн тоог тоолох тухайд баримт бичиг тус бүрийг нээж, мэдээллийг шалгах хэрэгтэй тул бага зэрэг ядаргаатай байж магадгүй юм.

Тиймээс бид таны үнэт цагийг хэмнэхэд туслах 2 хурдан аргыг жагсаав.

Арга 1: Файлын хавтаснаас дэлгэрэнгүй мэдээллийг шалгах

Текст дээр бид Windows 7-ийн орчинд жишээг өгөх болно.

1. Нэгдүгээрт, шалгахын тулд бүх баримт бичгийг нэг файлын хавтсанд байрлуул.
2. Дараа нь файлын хавтсыг нээгээд "Өөрчлөлтийг харах" -ын хажууд байгаа "Илүү их сонголтууд" товчийг дарна уу.  
3. Дараа нь "Дэлгэрэнгүй" дээр дарна уу.
4. Одоо толгойн мөрөн дээр хулганы баруун товчийг дараад "Илүү" -г сонгоно уу.
5. "Дэлгэрэнгүйг сонгох" харилцах цонхноос "Хуудас" ба "Үг тоолох" нүдийг шалгана уу.
6. Дараа нь “OK” дээр дарна уу.

Одоо баримт бичиг бүрийн хуудас, үгийг харуулсан 2 шинэ багана бий болно. Та эдгээр тоонуудыг хамтад нь нэмэх хэрэгтэй.

Гэхдээ энэ арга нь танд файл бүрт ойролцоогоор хэдэн үг оруулах боломжийг олгодог. Тиймээс илүү нарийвчлалтай зураг авахын тулд та 2-р аргыг сонгож болно.

Арга 2: Макро үүсгэх

1. Үүнтэй адилаар, бүх зорилтот баримт бичгүүдийг эхлээд нэг файлын хавтсанд байрлуул.
2. Дараа нь Word-ийг нээгээд "Developer" таб дээр дарна уу.
3. Дараа нь "Visual Basic" дээр дарж VBA засварлагчийг нээнэ үү. Эсвэл та зүгээр л “Alt + F11” товчийг дарж болно.
4. Одоо "Normal" ба "Insert" дээр дарна уу.
5. Дараа нь “Модуль” -ыг сонгоорой.
6. Дараа нь шинэ модуль дээр давхар товшоод засварлах хэсэгт дараахь кодыг оруулна уу.

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. Эцэст нь "Ажиллуулах" дээр дарна уу. Дараа нь хуудасны дугаар, нийт үгсийг харуулсан мессеж хайрцаг угтана.

Тэмдэглэл: "C: \ Users \ Test \ Desktop \ files" нь файлын хавтасны байршлыг хэлнэ.

Баримт бичгийн авлигыг анхааралтай ажигла

Бид өдөр бүр бүх төрлийн тайлангуудтай харьцах шаардлагатай байдаг тул файлын бүрэн бүтэн байдлыг хамгаалахын тулд нөөцлөлт нь аюулгүй байдлын торны чухал хэсэг болдог тул зарим чухал файлуудыг гэмтсэн тохиолдолд нөөцлөх нь зүйтэй. Гэсэн хэдий ч нөөц нь авлигын золиос болж чадахгүй. Энэ үед танд давуу эрх олгох шаардлагатай болно Word файл сэргээх хэрэгсэл эвдэрсэн

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. xlsx өгөгдлийн асуудлыг засах хэрэгсэл болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com