如何使用代码删除打印页眉/页脚

Sub RemoveHeadersAndFooters()
    Dim s As Integer
    For s = 1 To ActiveDocument.Sections.Count
        With ActiveDocument.Sections(s)
            .Headers(wdHeaderFooterPrimary).Range.Delete
            .Headers(wdHeaderFooterFirstPage).Range.Delete
            .Headers(wdHeaderFooterEvenPages).Range.Delete
            .Footers(wdHeaderFooterPrimary).Range.Delete
            .Footers(wdHeaderFooterFirstPage).Range.Delete
            .Footers(wdHeaderFooterEvenPages).Range.Delete
        End With
    Next s
End Sub