2 метода за преброяване на общия брой думи на един език в многоезичен Word документ

В днешната статия бихме искали да ви представим 2 метода за преброяване на общия брой думи на един език в многоезичен документ на Word.

От време на време някои от вас може да имат нужда да редактират многоезичен документ на Word. В резултат на това ще има моменти, в които искате да направите броене на думи за един конкретен език, но само за да откриете, че Word не може да изпълни тази задача.

Тогава нашата цел е да ви предоставим 2 полезни решения за справяне с такъв проблем.

Метод 1: Използвайте опцията „Разширено търсене“.

1. Първо, щракнете върху бутона с главата надолу триъгълник зад „Намиране“ в групата „Редактиране“ в раздела „Начало“.     
2. Сега в диалоговия прозорец „Намиране и замяна“ щракнете върху бутона „Още“.
3. И поставете отметка в квадратчето „Намиране само на цели думи“.
4. След това щракнете върху бутона „Форматиране“.
5. След това изберете „Език“.
6. В диалоговия прозорец „Търсене на език“ намерете и изберете желания език и щракнете върху „OK“.
7. Сега се върнете към полето „Намиране и заместване“, щракнете върху „Намиране в“ и изберете „Основен документ“.
8. След това всички английски думи трябва да бъдат избрани и да отидете, за да проверите броя на думите в долния ляв ъгъл на екрана. Виждаме, че числото е 93.

Метод 2: Стартирайте Word Macro

1. За да започнете, кликнете върху раздела „Разработчик“.
2. След това щракнете върху „Visual Basic“, за да задействате VBA редактора. В случай, че все още не сте активирали раздела „Разработчик“, вместо това натиснете „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. Накрая щракнете върху бутона „Run“.

Ще се появи поле за съобщение. Числото се отнася до общия брой думи на френски текстове в този документ.

Забележка:

В кодовия ред „.LanguageID = wdфренски“,„wdфренски” означава френски език. За да персонализирате кодовете за по-конкретна употреба, можете да замените идентификатора на езика с точния език, който искате. А за повече езиков идентификатор можете да посетите: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)

Боравете правилно с повредени Word файлове

От време на време Word се изключва или замръзва поради всякакви грешки. Да речем, ако не успеете да архивирате файлове редовно, има голяма вероятност да загубите всички ценни данни. Останалите 2 заобиколни решения са или да се използва вградената функция на Word, или да се получи програма за ремонт докКато се има предвид фактът, че първият не изглежда да работи толкова добре в повечето случаи, препоръчително е да изберете инструмент на трета страна.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително Поправка в Excel и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com