В сегодняшней статье мы хотели бы представить вам 2 метода подсчета общего количества слов одного языка в многоязычном документе Word.
Время от времени у некоторых из вас может возникнуть потребность отредактировать многоязычный документ Word. В результате будут случаи, когда вы захотите подсчитать количество слов для одного конкретного языка, но только для того, чтобы обнаружить, что Word не может выполнить эту задачу.
Тогда наша цель предоставить вам 2 полезных решения для решения такой проблемы.
Способ 1: используйте опцию «Расширенный поиск»
- Прежде всего, нажмите кнопку с перевернутым треугольником за «Найти» в группе «Редактирование» на вкладке «Главная».
- Теперь в диалоговом окне «Найти и заменить» нажмите кнопку «Дополнительно».
- И поставьте галочку «Находить только целые слова».
- Затем нажмите кнопку «Формат».
- Далее выберите «Язык».
- В диалоговом окне «Найти язык» найдите и выберите tarвыберите язык и нажмите «ОК».
- Теперь вернитесь к окну «Найти и заменить», нажмите «Найти в» и выберите «Основной документ».
- Затем необходимо выбрать все английские слова и перейти к проверке количества слов в нижнем левом углу экрана. Мы видим число 93.
Способ 2: запустить макрос Word
- К start с, перейдите на вкладку «Разработчик».
- Затем нажмите «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, либо получить программу для документ по ремонту. Учитывая тот факт, что первый не так хорошо работает в мost время, желательно выбрать сторонний инструмент.
Об авторе:
Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая Исправление Excel и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com