編按：一篇長(zhǎng)文檔，假設(shè)有1000頁(yè)，大家是否想過(guò)如何快速批量刪除這個(gè)文檔中的所有頁(yè)眉頁(yè)腳？如果有想過(guò)，那你會(huì)用什么方法刪除它呢？帶著這個(gè)問(wèn)題，我們挖掘到了一個(gè)幾乎不為人知的Word頁(yè)眉頁(yè)腳批量處理技巧，一起來(lái)看看吧！

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

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

怎么辦？想必大多數(shù)人都是打開文檔，認(rèn)認(rèn)真真的挨個(gè)手動(dòng)刪除。

就像這樣……

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

操作方法：

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

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

Sub?批量刪除頁(yè)眉頁(yè)腳()
'此代碼功能為列出指定文件夾中所有選取的WORD文件全路徑名
Dim myDialog As FileDialog, oDoc As Document, oSec As Section
Dim oFile As Variant, myRange As Range
On Error Resume Next
'定義一個(gè)文件夾選取對(duì)話框
Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
With myDialog
?.Filters.Clear '清除所有文件篩選器中的項(xiàng)目
?.Filters.Add "所有Word文件", "*.doc,*.docx", 1 '增加篩選器的項(xiàng)目為所有Word文件
?.AllowMultiSelect = True '允許多項(xiàng)選擇
If .Show = -1 Then '確定
For Each oFile In .SelectedItems '在所有選取項(xiàng)目中循環(huán)
Set oDoc = Word.Documents.Open(FileName:=oFile, Visible:=False)
For Each oSec In oDoc.Sections '文檔的節(jié)中循環(huán)
Set myRange = oSec.Headers(wdHeaderFooterPrimary).Range
myRange.Delete '刪除頁(yè)眉中的內(nèi)容
myRange.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone '段落下邊框線
Set myRange = oSec.Footers(wdHeaderFooterPrimary).Range
myRange.Delete '刪除頁(yè)腳中的內(nèi)容
Next
oDoc.Close True
Next
End If
End With
End Sub

3.?此時(shí)，將彈出“瀏覽”對(duì)話框，選擇要?jiǎng)h除頁(yè)眉頁(yè)腳的Word文檔，然后點(diǎn)擊“打開”按鈕。

關(guān)閉所有窗口，再次打開剛剛被處理的Word文檔，即可發(fā)現(xiàn)，文檔中的所有頁(yè)眉頁(yè)腳都全部刪除啦！

就是這么簡(jiǎn)單，搞定！交給老板，準(zhǔn)時(shí)下班！

＊＊＊＊部落窩教育-word批處理技巧＊＊＊＊

原創(chuàng)：部落窩教育（未經(jīng)同意，請(qǐng)勿轉(zhuǎn)載）

更多教程：部落窩教育（www.itblw.com）

微信公眾號(hào)：worditblw