如何用vba判断选中range中的分节符类型

我想把全文中类型为连续的分节符删除，其它的保留，如何用vba判断选中range中的分节符类型？

Option Explicit

Sub Example()
    Dim myRange As Range
    Dim oSec As Section
    Dim strSec As String
    Set myRange = ActiveDocument.Content
    For Each oSec In myRange.Sections
        With oSec
            Select Case .PageSetup.SectionStart
            Case wdSectionContinuous    ''0
                strSec = "连续型"
            Case wdSectionNewColumn    ''1
                strSec = "新建栏"
            Case wdSectionNewPage    ''2
                strSec = "下一页(新建页)"
            Case wdSectionEvenPage    ''3
                strSec = "偶数页"
            Case wdSectionOddPage    ''4
                strSec = "奇数页"
            End Select
            Debug.Print .Index, strSec
        End With
    Next
End Sub