word如何刪除頁眉頁腳的分節符，超詳細流程分解介紹

一篇長文檔，假設有1000頁，大家是否想過如何快速批量刪除這個文檔中的所有頁眉頁腳？如果有想過，那你會用什么方法刪除它呢？帶著這個問題，我們挖掘到了一個幾乎不為人知的Word頁眉頁腳批量處理技巧，一起來看看吧！

在職場辦公時，我們經常會處理各種Word文檔，也總會遇到各種類型的問題。就比如：快下班時，老板突然交代你，將一份上百頁甚至幾百頁的策劃書中的所有頁眉和頁腳全部刪除，下班之前就要。

遇到這樣的情況，真的要滿頭黑線了吧……

怎么辦？想必大多數人都是打開文檔，認認真真的挨個手動刪除。

就像這樣……

上圖中這類采用了分節符，把每頁或每章節分隔開單獨設置了不同的頁眉頁腳，你若還在手動刪除它們，要刪到猴年馬月？只怕到最后留在公司加班的只剩你了，那時，你的耐心也被消磨完了吧！本文就教大家一招，只用3步就幫你解決這個問題！

操作方法：

1. 打開Word，新建一個空白Word文檔，按Alt+F11組合鍵，打開VBA編輯器。

2. 然后將下面的代碼復制粘貼到窗口中。點擊上方的“運行子過程/用戶窗體（F5）”綠色三角形按鈕，運行代碼。

Sub 批量刪除頁眉頁腳()
‘此代碼功能為列出指定文件夾中所有選取的WORD文件全路徑名
Dim myDialog As FileDialog, oDoc As Document, 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

3. 此時，將彈出“瀏覽”對話框，選擇要刪除頁眉頁腳的Word文檔，然后點擊“打開”按鈕。

?

關閉所有窗口，再次打開剛剛被處理的Word文檔，即可發現，文檔中的所有頁眉頁腳都全部刪除啦！