В 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)

For s = 1 To ActiveDocument.Shapes.Count         Set TxtWrds = ActiveDocument.Shapes(s).TextFrame.TextRange         TxtWrdsStats = TxtWrds.ComputeStatistics(Statistic:=wdStatisticWords)

ToTxtWrds = ToTxtWrds + TxtWrdsStats     Next     ToWords = Lngwords + ToTxtWrds     MsgBox ("The document has " & Format(ToWords, "##,##0") & " words.")

End Sub

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (1658) относится к Microsoft Word 97, 2000, 2002 и 2003.