删除页眉页脚出现错误

朱付安

代码运行后，出现对象不支持属性和方法错误，但是能去除，不知道问题在哪儿、谢谢

thunor

不要PRINT.

zhgj007

不要PRINT.

Sub RemoveHeadersAndFooters()
  Dim documentPath As String
  documentPath = ActiveDocument.FullName
  If IsEmpty(documentPath) Then Exit Sub

  Dim doc As Document
  Application.DisplayAlerts = wdAlertsNone

  ' 打开当前文档
  Set doc = Documents.Open(documentPath)

  ' 遍历文档的所有节
  Dim section As section
  For Each section In doc.Sections
    ' 删除页眉
    Call DeleteHeaderFooter(section.Headers(wdHeaderFooterFirstPage))
    Call DeleteHeaderFooter(section.Headers(wdHeaderFooterPrimary))
    Call DeleteHeaderFooter(section.Headers(wdHeaderFooterEvenPages))
   
    ' 删除页脚
    Call DeleteHeaderFooter(section.Footers(wdHeaderFooterFirstPage))
    Call DeleteHeaderFooter(section.Footers(wdHeaderFooterPrimary))
    Call DeleteHeaderFooter(section.Footers(wdHeaderFooterEvenPages))
   

   
    ' 检查并移除页眉中的下边框
    If section.Headers(wdHeaderFooterPrimary).Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle <> 0 Then
      section.Headers(wdHeaderFooterPrimary).Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = 0
    End If
  Next section

  Application.DisplayAlerts = wdAlertsAll
  MsgBox "页眉和页脚已成功删除", vbInformation
End Sub

' 删除指定的页眉或页脚
Sub DeleteHeaderFooter(headerFooter As headerFooter)
  If Not headerFooter Is Nothing Then
    headerFooter.Range.Delete
  End If
End Sub