3 Сөздік құжаттағы бөлімдерге арналған сөздердің санын есептеу әдістері

Бұл мақалада Word құжатындағы бөлімдерге арналған сөздердің санын санаудың 3 әдісі болады.

Құжат сөздерінің жалпы санын алу оңай. Бірақ Word-та бөлімнің сөздерінің санын айтатын функция жоқ. Бір бөлімге бір тақырыпқа, мысалы, кітап жазу кезінде тарау ұйымдастыру сияқты тақырыптарды қоюды ұнататындығымызды ескерсек, бөлімнің есебін алу үшін бізге уақытша шешімдер ойлап табу керек.   Төменде макросты қажет ететін 3 тәсіл келтірілген.

1-әдіс: Ағымдағы бөлімдегі сөздердің санын санау

1. Алдымен, курсорды мақсатты бөлімнің ішіне орналастырыңыз.
2. Содан кейін Word бағдарламасында VBA редакторын ашу керек. «Әзірлеуші», содан кейін «Visual Basic» командасын басыңыз. Таспадан «Әзірлеушіні» таба алмасаңыз, оның орнына «Alt + F11» пернелерін басыңыз.
3. Содан кейін сол жақ бағандағы «Қалыпты» жобаны басыңыз.
4. Содан кейін «Кірістіру» қойындысын нұқыңыз.
5. Сол ашылмалы мәзірден «Модуль» таңдаңыз.
6. Жаңа модульді екі рет басу арқылы ашыңыз.
7. Енді ашық модульге кодтарды қойыңыз:

Sub CountWordsOfCurrentSection()
  MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
         & " words in current section.")
End Sub

8. Соңында кодтарды орындау үшін «Іске қосу» батырмасын басыңыз немесе «F5» пернесін басыңыз.

Сізге ағымдағы бөлімнің жалпы санын көрсететін хабарлама терезесі келеді, мысалы:

2-әдіс: белгілі бір бөлімге арналған сөздердің санын санау

Сіз кітаппен жұмыс жасадыңыз және әр тарауды жеке бөлім ретінде жасадыңыз делік. Бір тарауда қанша сөз жазғаныңызды білу үшін осы әдісті қолдануға болады.

1. Макросты орнату және іске қосу үшін жоғарыдағы қадамдарды орындаңыз.
2. Макросты мынаған ауыстырыңыз:

Sub CountWordsOfSpecificSection()
  Dim strSecNum As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strSecNum = InputBox("Enter a section number here:", "Enter Section Number") 
  MsgBox ("There are " & objDoc.Sections(strSecNum).Range.ComputeStatistics(wdStatisticWords) _
          & " words in section " & strSecNum & ".")
  Application.ScreenUpdating = True
End Sub

3. Оны іске қосқанда кіріс терезесі болады. «Бөлімнің нөмірін енгізу» өрісіне бөлім нөмірін енгізіп, одан әрі жылжу үшін «ОК» батырмасын басыңыз.

Нәтиже хабарлама терезесінде көрсетілген.

3-әдіс: Құжаттағы барлық бөлімдерге арналған сөздердің санын санау

Субтитрде көрсетілгендей, осылайша құжаттағы әр бөлімнің сөздерінің жалпы саны алынып, хабарлама өрісіне жазылады.

1. Ең алдымен, мақсатты құжатты ашыңыз.
2. Макросты орнату және іске қосу үшін 1-тәсілдегі әрекеттерді қайталау керек.
3. Ал енді осы макросты өзгертіңіз:

Sub CountWordsOfEachSectionInDoc()
  Dim objDoc As Document
  Dim nNumberOfSection As Long
  Dim strText As String
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
  nNumberOfSection = objDoc.Sections.Count
 
  For nNumberOfSection = 1 To nNumberOfSection
    strText = strText & "There are " & objDoc.Sections(nNumberOfSection) _
              .Range.ComputeStatistics(wdStatisticWords) & " words in section " & nNumberOfSection & "; " _
              & vbNewLine
  Next nNumberOfSection
 
  MsgBox strText
 
  Application.ScreenUpdating = True
End Sub

Мүмкін нәтиже:

Құнды деректерді сақтаңыз

Барлық құжаттармен жұмыс істеу кезінде сіз олардың қауіпсіздігін есте ұстауыңыз керек. Деректердің келесі жоғалуы қашан болатынын ешқашан айта алмайтындықтан, маңызды файлдардың сақтық көшірмесін жасау ұсынылады. Сонымен қатар, әрқашан мүмкін болатын құралды алу жақсы құжатты қалпына келтіру, егер бар болса.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. xls жөндеу және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com