Как отличить разрыв страницы от разрыва раздела в программе "Word" - VBA

Формулировка задачи:

Скажите, пожалуйста, как отличить VBA-средствами разрыв страницы от разрыва раздела в программе "Word"? Или такого средства нет и нужно действовать обходными путями?

Решение задачи: «Как отличить разрыв страницы от разрыва раздела в программе "Word"»

textual
                            Листинг программы 
                        

                            Sub ReplacePageBreaks()
    Dim pattern As String
    If Val(Application.Version) < 12 Then
        pattern = "^p^m" 'Шаблон замены для офиса версии ниже 2007.
    Else
        pattern = "^p^m^p" 'Шаблон замены для офиса версии 2007 и выше.
    End If
    With ActiveDocument.Range(0, 0).Find
        .ClearFormatting
        .Text = pattern
        .Replacement.ClearFormatting
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False 'Обратите внимание на этот параметр.
                                'Если вы использовали .MatchWildcards = True,
                                'то знаку ^m в шаблоне будет соответствовать не
                                'только разрыв страницы, но также и разрыв раздела.
                                'При .MatchWildcards = False разрыву раздела
                                'соответствует уже другой знак (^b), и не нужно
                                'ломать голову над тем, какой разрыв вы нашли.
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub
                        