Word предоставляет встроенный инструмент, который позволяет вам подсчитывать количество слов в вашем документе. Однако некоторые люди предпочитают иметь в документе постоянно обновляемое количество слов. Таким образом, они могут следить за счетчиком слов и перестать писать, когда они наберут желаемое количество слов в своем документе.

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

Sub WordCounter()

Set myBar = CommandBars("Formatting")

Set myControls = myBar.Controls     NumButtons = myControls.Count

ButtonLoc = 0     For J = 1 To NumButtons         If myControls(J).Type = msoControlButton Then             ButtonName$ = myControls(J).OnAction             If ButtonName$ = "WordCounter" Then ButtonLoc = J         End If     Next J

If ButtonLoc = 0 Then         ButtonLoc = NumButtons + 1         Set newControl = myControls.Add(Type:=msoControlButton)

newControl.OnAction = "WordCounter"

newControl.Style = msoButtonCaption     End If

Set myRange = ActiveDocument.Content     WdCount = myRange.ReadabilityStatistics(1).Value     With myControls(ButtonLoc)

.Caption = WdCount     End With

Application.OnTime When:=Now + TimeSerial(0, 0, 5), _       Name:="WordCounter"

End Sub

Обратите внимание, что этот макрос добавляет счетчик слов в конец панели инструментов форматирования при первом запуске. С этого момента кнопка на панели инструментов остается там.

Если вы позже измените свою панель инструментов, чтобы кнопка не находилась в конце панели инструментов, макрос найдет ее и будет действовать соответствующим образом.

При первом запуске Word (после запуска этого макроса) вам нужно будет нажать кнопку на панели инструментов, чтобы запустить макрос. Конечно, вы можете создать отдельный макрос AutoStart, который будет запускать WordCounter при первом запуске Word.

Следует отметить, что макрос запускается повторно каждые пять секунд.

Если это происходит слишком часто, вы можете изменить значение (5) в функции TimeSerial ближе к концу макроса. В зависимости от скорости вашей системы вы можете заметить небольшое неприятное мерцание экрана при каждом запуске макроса, но у вас обязательно будет обновленное количество слов. Если вместо этого вы хотите, чтобы подсчет слов выполнялся только при нажатии кнопки на панели инструментов, просто удалите строку Application.OnTime в конце макроса.

Если вы хотите удалить макрос, чтобы он больше не запускался, выполните следующие три простых шага:

  1. Закройте Word.

  2. Перезапустите Word. Макрос сейчас не запущен.

  3. Отредактируйте панель инструментов форматирования, чтобы удалить кнопку WordCounter.

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

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

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

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

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