在實際工作中，我們時常需要添加頁眉頁腳，那如果不需要，該如何删除呢？怎樣批量删除多個文檔的頁眉頁腳呢？本期與大家分享相應的技巧。

1、删除單個文檔的頁眉頁腳

雙擊頁眉處，進入編輯狀态，然後選中文本内容按删除鍵，之後再點擊開始——字體——清除所有格式清除頁眉橫線，最後關閉頁眉和頁腳即可。

PS：想了解更多删除頁眉橫線的删除方法，可以查看《Word文檔中間的橫線，怎麼删除不了？》。

2、删除多個文檔的頁眉頁腳

如何批量删除上百個Word文檔的頁眉頁腳呢？

這裡需要借用VBA來實現。

新建一個空白文檔，點擊開發工具——Visual Basic，在打開的界面中點擊插入——模塊，然後複制以下代碼：

Sub 批量删除頁眉頁腳()

'此代碼功能為列出指定文件夾中所有選取的WORD文件全路徑名

Dim myDialog As FileDialog, oDoc AsDocument, oSec As Section

Dim oFile As Variant, myRange As Range

On Error Resume Next

'定義一個文件夾選取對話框

Set myDialog =Application.FileDialog(msoFileDialogFilePicker)

With myDialog

.Filters.Clear '清除所有文件篩選器中的項目

.Filters.Add "所有Word文件", "*.doc,*.docx", 1 '增加篩選器的項目為所有Word文件

.AllowMultiSelect = True '允許多項選擇

If .Show = -1 Then '确定

For Each oFile In .SelectedItems '在所有選取項目中循環

Set oDoc =Word.Documents.Open(FileName:=oFile, Visible:=False)

For Each oSec In oDoc.Sections '文檔的節中循環

Set myRange =oSec.Headers(wdHeaderFooterPrimary).Range

myRange.Delete '删除頁眉中的内容

myRange.ParagraphFormat.Borders(wdBorderBottom).LineStyle= wdLineStyleNone '段落下邊框線

Set myRange =oSec.Footers(wdHeaderFooterPrimary).Range

myRange.Delete '删除頁腳中的内容

Next

oDoc.Close True

Next

End If

End With

End Sub

點擊運行，之後會跳出相應的對話框，然後選擇要清除的文檔打開即可批量删除頁眉頁腳。

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!