ამ სტატიაში ჩვენ გაჩვენებთ 2 სწრაფ და ეფექტურ გზას გვერდებისა და სიტყვების ჯამური რაოდენობის დასათვლელად მრავალი Word დოკუმენტისთვის.
დროდადრო, გრძელ დოკუმენტზე მუშაობისას, ჩვენ ვაპირებთ შინაარსის დაყოფას რამდენიმე Word ფაილად, როგორიცაა სხვადასხვა თავების განთავსება მრავალ დოკუმენტში. მაშინ, როდესაც საქმე ეხება გვერდების და სიტყვების საერთო რაოდენობის დათვლას, ეს შეიძლება ცოტა დამღლელი იყოს, რადგან თქვენ უნდა გახსნათ თითოეული დოკუმენტი და შეამოწმოთ ინფორმაცია.
ამიტომ, ჩვენ ჩამოვთვლით 2 სწრაფ მეთოდს, რომელიც დაგეხმარებათ დაზოგოთ თქვენი ძვირფასი დრო.
მეთოდი 1: შეამოწმეთ დეტალები ფაილის საქაღალდეში
ტექსტში მივცემთ მაგალითს Windows 7-ის გარემოში.
- უპირველეს ყოვლისა, მოაწყეთ ყველა შესამოწმებელი დოკუმენტი ერთი ფაილის საქაღალდეში.
- შემდეგ გახსენით ფაილის საქაღალდე და დააწკაპუნეთ ღილაკზე "მეტი პარამეტრები" გვერდით "შეცვალეთ თქვენი ხედვა".
- შემდეგ დააჭირეთ "დეტალებს".
- ახლა დააწკაპუნეთ მარჯვენა ღილაკით სათაურის მწკრივზე და აირჩიეთ "მეტი".
- დიალოგურ ფანჯარაში „აირჩიე დეტალები“ მონიშნეთ „გვერდები“ და „სიტყვების რაოდენობა“.
- შემდეგ დააჭირეთ ღილაკს "OK".
ახლა იქნება 2 ახალი სვეტი, სადაც ნაჩვენები იქნება თითოეული დოკუმენტის გვერდები და სიტყვები. თქვენ უბრალოდ უნდა დაამატოთ ეს რიცხვები.
თუმცა, ეს მეთოდი მოგცემთ მხოლოდ სიტყვების სავარაუდო რაოდენობას თითოეულ ფაილში. ამრიგად, უფრო ზუსტი ფიგურის მისაღებად, შეგიძლიათ აირჩიოთ მეთოდი 2.
მეთოდი 2: შექმენით მაკრო
- ანალოგიურად, პირველ რიგში, ყველა სამიზნე დოკუმენტი ერთ ფაილების საქაღალდეში მოათავსეთ.
- შემდეგ გახსენით Word და დააჭირეთ "დეველოპერი" ჩანართს.
- შემდეგ დააჭირეთ "Visual Basic"-ს VBA რედაქტორის გასახსნელად. ან შეგიძლიათ უბრალოდ დააჭიროთ "Alt+ F11".
- ახლა დააჭირეთ "ნორმალური" და "ჩასმა".
- შემდეგ აირჩიეთ "მოდული".
- შემდეგ ორჯერ დააწკაპუნეთ ახალ მოდულზე და ჩასვით შემდეგი კოდები რედაქტირების ზონაში:
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
- და ბოლოს, დააჭირეთ "Run". შემდეგ თქვენ მოგესალმებათ შეტყობინების ყუთი, რომელშიც მითითებულია გვერდის ნომერი და მთლიანი სიტყვები, როგორიცაა ქვემოთ:
შენიშვნა: "C:\Users\Test\Desktop\files" ეხება ფაილის საქაღალდის მდებარეობას.
დააკვირდით დოკუმენტების კორუფციას
ვინაიდან ჩვენ ყოველდღიურად გვიწევს ყველა სახის მოხსენებასთან გამკლავება, მიზანშეწონილია რამდენიმე კრიტიკული ფაილის სარეზერვო ასლის შექმნა, თუ ისინი დაზიანდება, რადგან სარეზერვო ასლი ყოველთვის არის უსაფრთხოების ქსელის მნიშვნელოვანი ნაწილი ფაილის მთლიანობის დასაცავად. თუმცა, ფაქტია, რომ სარეზერვო ასლები ასევე შეიძლება გახდეს კორუფციის მსხვერპლი. და სწორედ მაშინ დაგჭირდებათ გამორჩეული დაზიანებული Word ფაილის აღდგენის ინსტრუმენტი
ავტორი შესავალი:
ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის xlsx მონაცემთა პრობლემის გამოსწორების ინსტრუმენტი მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად