Как осуществить поиск в диапазон?

[Simbad]

Приветствую всех участников форума!
Надо в определенный диапазон документа подсчитать количество те фразы, которые закрашены красным светом. Попробовал вот так:
Dim rng As Range
Set rng = ActiveDocument.Paragraphs(1).Range
With rng.Find
.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.Font.Color = wdColorRed
.Execute
If .Found = False Then
n=0
Exit Sub
Else
n = 1
While .Execute
n = n + 1
Wend
End If
End With
MsgBox n
Но оно подсчитает количество всех этих фраз в целом документе. Помогите разобраться, пожалуйста…

[viter.alex]

А зачем два раза запускать поиск? Вот так будет работать

  Dim rng As Range
  Dim n As Integer
  Set rng = ActiveDocument.Paragraphs(1).Range
  n = 0
  With rng.Find
    .Text = ""
    .Forward = True
    .Format = True
    .Font.Color = wdColorRed
    While .Execute
      n = n + 1
    Wend
  End With
  MsgBox n

[Simbad]

Спасибо за помощь, но ваш пример тоже мне не устраивает . Потому что оно тоже подсчитает остальные абзацев. Мне надо чтобы оно подсчитал количество красных фраз только в первом абзаце.

[Вождь]

Сообщение от Simbad

Мне надо чтобы оно подсчитал количество красных фраз только в первом абзаце.

Перед поиском запомните область поиска или ее координаты, например:
set saveR = ActiveDocument.Paragraphs(1).Range
И, после Execute, добавьте проверку попадания в область поиска:
If not mg.InRange(saveR) then ' остановка поиска

[Simbad]

Огромное вам спасибо! Хорошо сработаль