У сьогоднішній статті ми хотіли б представити вам 2 методи підрахунку загальної кількості слів однієї мови в багатомовному документі Word.
Час від часу декому з вас може виникнути потреба відредагувати багатомовний документ Word. Як наслідок, траплятимуться випадки, коли ви захочете виконати підрахунок слів для однієї конкретної мови, але лише для того, щоб виявити, що Word не зможе виконати це завдання.
Тоді наша мета надати вам 2 корисні рішення для вирішення такої проблеми.
Спосіб 1: Використовуйте опцію “Розширений пошук”
- Спочатку клацніть перевернуту трикутну кнопку позаду «Знайти» в групі «Редагування» на вкладці «Домашня сторінка».
- Тепер у діалоговому вікні «Знайти та замінити» натисніть кнопку «Ще».
- І поставте прапорець «Знайти лише цілі слова».
- Потім натисніть кнопку «Форматувати».
- Далі виберіть «Мова».
- У діалоговому вікні «Знайти мову» знайдіть та виберіть потрібну мову й натисніть «ОК».
- Тепер поверніться до поля «Знайти та замінити», натисніть «Знайти» та виберіть «Основний документ».
- Далі потрібно вибрати всі англійські слова та перейти до перевірки кількості слів у нижньому лівому куті екрана. Ми бачимо число 93.
Спосіб 2: Запустіть макрос Word
- Для початку натисніть вкладку «Розробник».
- Потім натисніть «Visual Basic», щоб запустити редактор VBA. Якщо у вас ще не ввімкнено вкладку «Розробник», натисніть натомість «Alt+F11».
- Потім натисніть «Звичайний», а потім натисніть «Вставити».
- Виберіть “Модуль”.
- Двічі клацніть новий модуль, щоб відкрити область кодування.
- Потім вставте туди такі коди:
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
- Нарешті, натисніть кнопку «Виконати».
З’явиться вікно повідомлення. Число стосується загальної кількості слів французьких текстів у цьому документі.
Примітка:
У рядку коду “.LanguageID = wdFrench","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