число вхождений определённого символа в текст Word

[sergejaleksandrovich]

Есть текст в word, нужно посчитать количество вхождений определённого символа в этот текст и поместить в переменную число найденных записей.
Символы я нашёл кодом:

Код: Выделить всё

Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "п"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

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

[GSerg]

Код: Выделить всё

  Dim i As Long, r As Word.Range
 
  Set r = Selection.Range
 
  With r.Duplicate.Find
    .ClearFormatting
   
    Do While .Execute("n", False, False, Wrap:=wdFindStop)
      If .Parent.Start > r.End Then Exit Do
      i = i + 1
    Loop
  End With
 
  MsgBox i

[sergejaleksandrovich]

GSerg, спасибо большое.
Только теперь, я так понял, мне не нужно выделять каждый искомый символ, а выделить весь текст и считать число вхождений кодом, предоставленным тобой.