oSec 变量未定义，怎么回事？

Sub 删除页眉页脚()
    On Error Resume Next
    Application.ScreenUpdating = False
    With ActiveDocument
        .ActiveWindow.View.Type = wdPrintView
        For Each oSec In mydoc.Sections '文档的节中循环
            For i = 9 To 10
                .ActiveWindow.View.SeekView = i '9-wdSeekCurrentPageHeader,10-wdSeekCurrentPageFooter
                .Application.Selection.WholeStory
                .Application.Selection.Delete
                .ActiveWindow.View.SeekView = 0 ' wdSeekMainDocument
            Next
        Next
    End With
    Application.ScreenUpdating = True
    MsgBox "恭喜你，删除完毕！"
End Sub

中的oSec 变量未定义，怎么回事？

已经解决