Поиск строки, содержащей наибольшее количество пробелов

[Студент1000]

Очень нужна помощь. Дан текст. В нем нужно найти строку, содержащую наибольшее число пробелов, и выделить ее синим цветом.

[Студент1000]

Буду очень признателен за помощь.

[Казанский]

Пробуйте макрос:

Sub Студент1000()
Dim maxN&, maxSp&, curSp&, curN&

With Selection
    .HomeKey Unit:=wdStory
    Do
        .EndKey Unit:=wdLine, Extend:=wdExtend
        curSp = Len(.Text) - Len(Replace$(.Text, " ", ""))
        If curSp > maxSp Then maxSp = curSp: maxN = curN
        curN = curN + 1
        .HomeKey Unit:=wdLine
        .MoveDown Unit:=wdLine, Count:=1
    Loop Until .Information(wdFirstCharacterLineNumber) <= curN
    .HomeKey Unit:=wdStory
    .MoveDown Unit:=wdLine, Count:=maxN
    .EndKey Unit:=wdLine, Extend:=wdExtend
    .Range.HighlightColorIndex = wdBlue
End With
End Sub

[Студент1000]

спасибо большое!