Включение текста текстового поля в подсчет слов

В Word есть этот отличный инструмент, который подсчитывает количество слов в вашем документе за вас. Проблема только в том, что он не считает все слова. Например, если ваш документ содержит текстовые поля, инструмент подсчета слов не будет включать какой-либо текст в поля для слов в общее количество слов для документа. Это может быть реальной проблемой, особенно если вы используете текстовые поля для реализации специального элемента документа, такого как боковые панели.

Однако есть способ обойти проблему. Вы можете подсчитать все слова в основной части документа, как обычно, а затем записать это число. Затем переместите курсор в текстовое поле. Если вы запустите инструмент подсчета слов, Word вернет количество слов в этом текстовом поле. Если вы выберете несколько текстовых полей перед запуском инструмента подсчета слов, Word вернет количество всех слов во всех выбранных вами текстовых полях. Если вы используете связанные текстовые поля, вам не нужно выделять их все, но вам нужно переместить точку вставки в последнее текстовое поле в серии. Когда вы складываете количество слов в основном документе плюс количество слов для любых текстовых полей, у вас будет количество слов для всего документа.

Если вы часто используете текстовые поля, описанный выше процесс может стать довольно надоедливым. При желании вы можете создать макрос, который автоматизирует этот процесс. Следующий макрос определяет количество слов в основном документе и добавляет к нему количество слов для каждого текстового поля в документе. В результате получается общее количество слов, как описано выше.

 Sub TxtBxCount () Dim i As Integer Dim TxtWrds As Range Dim TxtWrdsStats As Long Dim ToTxtWrds As Long Dim Lngwords As Long Dim ToWords As Long Lngwords  = ActiveDocument.BuiltInDocumentProperties (wdPropertyWords) Для s = 1 Для ActiveDocument.Shapes.Count Установить TxtWrds = ActiveDocument.Shapes (s) .TextFrame.TextRange TxtWrdsStats = TxtWrds.ComputeStatistics (Statistic: = wdTxtWords)  + ToTxtWrds MsgBox ("Документ содержит" & Format (ToWords, "##, ## 0") & "слова.") End Sub 

Оцените статью
Frestage.ru
Добавить комментарий