Бұл мақалада біз сізге бірнеше Word құжаттары үшін беттер мен сөздердің жалпы санын санаудың 2 жылдам және тиімді әдісін көрсетеміз.
Кейде, ұзақ құжатпен жұмыс жасай отырып, біз мазмұнды бірнеше Word файлдарына бөлуге бейімбіз, мысалы, бірнеше құжатқа әр түрлі тарауларды орналастыру. Содан кейін беттер мен сөздердің жалпы санын санауға келетін болсақ, бұл біраз шаршатуы мүмкін, себебі әр жеке құжатты ашып, ақпаратты тексеру қажет.
Сондықтан біз сіздің қымбат уақытыңызды үнемдеуге көмектесетін 2 жылдам әдісті тізімдейміз.
1 -әдіс: Файл қалтасындағы мәліметтерді тексеріңіз
Мәтінде біз Windows 7 ортасында мысал келтіреміз.
- Біріншіден, барлық құжаттарды бір файл қалтасында тексеруді ұйымдастырыңыз.
- Содан кейін файл қалтасын ашып, «Көріністі өзгерту» жанындағы «Қосымша опциялар» түймесін басыңыз.
- Әрі қарай «Мәліметтер» түймесін басыңыз.
- Енді тақырып жолын тінтуірдің оң жақ түймесімен нұқыңыз және «Қосымша» таңдаңыз.
- «Мәліметтерді таңдау» тілқатысу терезесінде «Беттер» және «Сөз саны» құсбелгісін қойыңыз.
- Содан кейін «OK» батырмасын басыңыз.
Енді әр құжаттың беттері мен сөздері қойылған 2 жаңа баған болады. Бұл сандарды бірге қосу керек.
Алайда, бұл әдіс сізге әр файлдағы сөздердің шамамен санын береді. Осылайша, дәлірек фигураны алу үшін сіз 2 -әдісті таңдай аласыз.
2 -әдіс: макросты құру
- Сол сияқты, алдымен барлық мақсатты құжаттарды бір файл қалтасына салыңыз.
- Содан кейін Word бағдарламасын ашып, «Әзірлеуші» қойындысын нұқыңыз.
- Содан кейін VBA редакторын ашу үшін «Visual Basic» түймесін басыңыз. Немесе «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
- Соңында «Іске қосу» түймесін басыңыз. Содан кейін сізді бет нөмірі мен жалпы сөздерді көрсететін хабарлама терезесі қарсы алады, мысалы:
Ескерту: «C: \ Users \ Test \ Desktop \ files» файл қалтасының орналасуын білдіреді.
Құжаттағы сыбайлас жемқорлыққа назар аударыңыз
Біз күнделікті есептердің барлық түрлерімен айналысуымыз керек болғандықтан, кейбір маңызды файлдар бұзылған жағдайда олардың сақтық көшірмесін жасаған жөн, себебі сақтық көшірме әрқашан файлдың тұтастығын қорғау үшін қауіпсіздік желісінің маңызды бөлігі болып табылады. Алайда, резервтік көшірмелер жемқорлықтың құрбаны бола алмайды. Міне, сол кезде сізге жетекші қажет болады бүлінген Word файлдарын қалпына келтіру құралы
Автордың кіріспесі:
Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. xlsx деректер ақауларын жою құралы және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com