Thủ tục loại bỏ toàn bộ Header và Footer trong Word

Xóa tất cả các Header và Footer bất kỳ khác nhau trong tài liệu Word bằng mã VBA

Bước 1: Mở tệp Word mà bạn muốn xóa tất cả Header và Footer, nhấn giữ tổ hợp phím Alt và F11 để mở cửa sổ Microsoft Visual Basic for Applications. Nếu phím tắt của bạn không hoạt động, hãy kích chuột chọn tab Developer, chọn Visual Basic để mở cửa sổ Microsoft Visual Basic for Applications.

Bước 2: Nhấn chọn Insert, chọn Module và dán mã sau vào cửa sổ vừa xuất hiện.

Mã VBA: Xóa tất cả Header và Footer khác nhau trong cùng một tài liệu:
 

Sub RemoveHeadAndFoot()
'Update by Extendoffice
    Dim oSec As Section
    Dim oHead As HeaderFooter
    Dim oFoot As HeaderFooter
    For Each oSec In ActiveDocument.Sections
        For Each oHead In oSec.Headers
            If oHead.Exists Then oHead.Range.Delete
        Next oHead
        For Each oFoot In oSec.Footers
            If oFoot.Exists Then oFoot.Range.Delete
        Next oFoot
    Next oSec
     Selection.WholeStory
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub