В сегодняшней статье мы рады поделиться с вами двумя эффективными методами исключения текстов таблиц из статистики подсчета слов.
Таблицы обычно используются для хранения данных. А таблицы — наши лучшие друзья в иллюстрировании моментов при работе над документом. Тогда это может стать немного неловко, когда речь идет о подсчете слов. Иногда нам нужно просто получить количество слов основного текста, а не все данные в таблицах. Тем не менее, всем известно, что Word по умолчанию считает все слова в вашем документе. По этой причине мы придумали эффективные средства. Читай дальше, чтобы узнать больше.
Способ 1: выберите таблицы вручную и выполните расчеты самостоятельно
Если это короткий документ всего с одной или двумя таблицами, не составит труда выбрать таблицы одну за другой, удерживая нажатой клавишу «Ctrl». При таком подходе общее количество выбранных таблиц будет отображаться в строке состояния, например, ниже:
Как видите, есть 2 числа. Первый относится к количеству слов в выбранных таблицах, а второй — к общему количеству слов в вашем документе. Просто используйте второе число минус первое, чтобы получить результат.
Способ 2: запустить коды VBA
Как упоминалось выше, метод 1 будет утомительным, если у вас в документе большое количество таблиц. Выбирать их вручную — определенно не идеальный способ. Вместо этого мы рекомендуем вам макрос, который будет считать все слова, но исключать их из таблиц и подписей.
- В первую очередь, нажмите «Alt + F11», чтобы открыть редактор VBA в Word.
- Затем нажмите «Обычный».
- Далее нажмите вкладку «Вставить».
- И выберите «Модуль» в раскрывающемся меню вкладки «Вставка».
- Дважды щелкните новый модуль, чтобы открыть область кодирования с правой стороны.
- Теперь вставьте туда следующий макрос:
Sub ExcludeTableAndCaptionWordsFromWordCount()
Dim objTable As Table
Dim objParagraph As Paragraph
Dim objDoc As Document
Dim nTableWords As Integer, nDocWords As Integer, nWordCount As Integer, nCaptionWords As Integer
Set objDoc = ActiveDocument
nTableWords = 0
nCaptionWords = 0
nDocWords = ActiveDocument.ComputeStatistics(wdStatisticWords)
With objDoc
For Each objTable In .Tables
nTableWords = nTableWords + objTable.Range.ComputeStatistics(wdStatisticWords)
Next objTable
End With
With objDoc
For Each objParagraph In .Paragraphs
If objParagraph.Range.Style = "Caption" Then
nCaptionWords = nCaptionWords + objParagraph.Range.ComputeStatistics(wdStatisticWords)
End If
Next objParagraph
End With
nWordCount = nDocWords - nTableWords - nCaptionWords
MsgBox ("There are " & nWordCount & " main text words in this document." & vbCr & "The following items are excluded from word count: " & vbCr & "Total words in tables: " & nTableWords & vbCr & "Total caption words: " & nCaptionWords)
End Sub
- Наконец, нажмите «Выполнить».
При запуске макроса должно появиться окно сообщения, показывающее результат подсчета.
Справиться со словесными повреждениями
Мы так много полагаемся на программное обеспечение, такое как Word, для ежедневной обработки работы. В результате мы не могли не думать о непреодолимых последствиях наличия Коррупция слова. Вы можете чувствовать отчаяние, если у вас нет достаточного инструмента для восстановления документов.
Об авторе:
Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая xls исправление и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com