2 Көптілді Word құжатындағы бір тілдің жалпы сөздерін санау әдістері

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

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

Одан кейін сізге осындай мәселені шешуге арналған 2 пайдалы шешім ұсынуға болады.

1-әдіс: «Қосымша іздеу» опциясын қолданыңыз

1. Алдымен «Үй» қойындысының астындағы «Өңдеу» тобындағы «Іздеу» артындағы үшбұрыш батырмасын басыңыз.     
2. Енді «Іздеу және ауыстыру» диалогтық терезесінде «Қосымша» батырмасын басыңыз.
3. «Тек сөздерді табу» ұяшығына белгі қойыңыз.
4. Содан кейін «Пішімдеу» батырмасын басыңыз.
5. Әрі қарай «Тіл» таңдаңыз.
6. «Тілді табу» диалогтық терезесінде мақсатты тілді тауып, таңдап, «ОК» түймесін басыңыз.
7. Енді «Іздеу және ауыстыру» өрісіне оралып, «Іздеу» батырмасын басып, «Негізгі құжатты» таңдаңыз.
8. Әрі қарай барлық ағылшын сөздері таңдалып, экранның сол жақ төменгі бұрышындағы сөздердің санын тексеруге көшу керек. Біз оның нөмірін 93-тен көре аламыз.

2-әдіс: Word макросын іске қосыңыз

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

Sub CountTotalWordsOfOneLanguage()
  Dim objRange As Range
  Dim nWords As Long
 
  ' Initialization
  Set objRange = ActiveDocument.Range
  nWords = 0
 
  ' Find all English words and do word count.
  With objRange.Find
    .LanguageID = wdFrench
    Do While .Execute
      nWords = nWords + objRange.ComputeStatistics(wdStatisticWords)
    Loop
  End With
 
  MsgBox nWords
End Sub

7. Соңында, «Іске қосу» батырмасын басыңыз.

Хабарлама терезесі пайда болады. Нөмір осы құжаттағы француз мәтіндерінің жалпы сөздерін білдіреді.

Ескерту:

Код жолында «.LanguageID = wdFrench»,«wdфранцуз»Француз тілін білдіреді. Кодтарды нақты пайдалану үшін теңшеу үшін тіл идентификаторын қалаған тілмен ауыстыруға болады. Тіл идентификаторын алу үшін сіз келесі мекен-жайға кіре аласыз: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)

Бүлінген сөз файлдарын дұрыс өңдеңіз

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

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

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