Application.ActiveWindow.ActivePane.View.SeekView = 9
        i = 0
        f = False
        Set r = Application.Selection.Range
        Do
        With r.Find
            .ClearFormatting
            .Text = "[А-ЯЁёа-я]" 'Ищем кириллические символы
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = True
' При нахождении символа присваиваем i текущую позицию и начинаем искать со следующей
            If .Execute Then
                If f Then
                    If r.Start = i Then
                        MsgBox "Проверка окончена. Количество кириллических букв" & " " & j, vbOKOnly
                        Exit Do
                    End If
                Else
                    i = r.Start
                    f = True
                End If

'А вот тут то и вопрос: при поиске просто в тексте я делал так
'                ActiveDocument.Range(r.Start, r.Start + 1).Select                                       выделяем символ
'                Selection.Range.HighlightColorIndex = Options.DefaultHighlightColorIndex    присваиваем выделению цвет, который установил пользователь
'                Set r = ActiveDocument.Range(r.End, r.End)   присваиваем range следующую позицию 

'В этом случае хотел сделать так
                ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range(r.End, r.End).Select
' Но оказалось, что в данном случае у Range нет свойства End
            Else
                Exit Do
            End If
        End With
    Loop
        Application.ActiveWindow.ActivePane.View.SeekView = 0
        Application.Selection.WholeStory
        Application.Browser.Next