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

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

Sub Mark_Long()

Dim iMyCount As Integer     Dim iWords As Integer

If Not ActiveDocument.Saved Then         ActiveDocument.Save     End If

'Reset counter     iMyCount = 0

'Set number of words     iWords = 20

For Each MySent In ActiveDocument.Sentences         If MySent.Words.Count > iWords Then              MySent.Font.Color = wdColorRed             iMyCount = iMyCount + 1         End If     Next     MsgBox iMyCount & " sentences longer than " & _       iWords & " words."

End Sub

Обратите внимание, что каждое предложение проверяется, и если оно длиннее, чем желаемая длина (определяемая переменной iWords), тогда предложение изменяется на красный цвет шрифта. Это позволяет легко изучить документ и определить, какие предложения превышают указанную вами длину.

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (3381) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Finding_Long_Sentences [Поиск длинных предложений].