Брюс ищет способ, чтобы 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 'Установить количество слов iWords = 20 для каждого MySent в ActiveDocument.Sentences If MySent.Words.Count> iWords Then MySent.Font.Color = wdColorRed iMyCount = iMyCount + 1 End If Next MsgBox iMyCount & "предложения длиннее, чем" & _ iWords & "words." End Sub
Обратите внимание, что каждое предложение проверяется, и если оно длиннее, чем желаемая длина (определяемая переменной iWords), тогда предложение изменяется на красный цвет шрифта. Это позволяет легко изучить документ и определить, какие предложения превышают указанную вами длину.