Вы, наверное, уже знали, что Word позволяет определять количество слов в выделенном фрагменте или во всем документе. Word имеет свои собственные внутренние алгоритмы для определения правильного подсчета. Это замечательно, если вам нужно знать фактическое количество слов.

Однако еще до того, как начался подсчет слов, машинистки подсчитали, сколько слов в документе в среднем встречается. Это было сделано путем определения количества набранных символов и последующего деления этого числа на пять. Для некоторых целей вам все же может потребоваться подсчитать количество слов, используя этот старомодный подход. Это можно сделать с помощью простого макроса:

Sub WordCount()

Dim Title As String     Dim WordCount As Integer     Dim Message As String

Title = "WordCount"

WordCount = Int((Len(Selection) / 5) + 0.5)

Message = LTrim(Str(WordCount)) + " word"

If WordCount <> 1 Then Message = Message + "s"

MsgBox Message, vbOKOnly, Title End Sub

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (12345) относится к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Counting_Words_the_Old_Fashioned_Way [Подсчет слов по старинке].