取消已上一节的页眉和页脚链接时，直接执行到页脚时会出错，但是F8调试可执行

sh0210832

取消上一节的页眉和页脚链接时，直接执行到页脚时会报出错，F8调试可继续执行，请问大佬是什么原因？



Sub UnlinkHeaderFooterFromPrevious()
    Dim oDoc As Document
    Dim oSection As section
    Dim oHeader As headerFooter

    ' 获取当前活动文档，或者你可以通过路径打开特定文档
    Set oDoc = ActiveDocument

        oDoc.range.Paragraphs(1).range.InsertBreak Type:=wdSectionBreakNextPage
        oDoc.range.Paragraphs(1).range.InsertBreak Type:=wdSectionBreakNextPage

    Dim WDseci As Integer

    For WDseci = 2 To 3

        ' 获取第二节
        Set oSection = oDoc.Sections(WDseci)
        Set oHeader = oSection.Headers(wdHeaderFooterPrimary)
         oHeader.LinkToPrevious = False

    Next WDseci

    For WDseci = 2 To 3

        ' 获取第二节
        Set oSection = oDoc.Sections(WDseci)

    '     如果你想要设置页脚，可以类似地操作
         Dim oFooter As headerFooter
         Set oFooter = oSection.Footers(wdHeaderFooterPrimary)
         oFooter.LinkToPrevious = False

    Next WDseci

End Sub