wps office頁眉頁腳怎么刪除？在職場辦公時，我們經(jīng)常會處理各種Word文檔，也總會遇到各種類型的問題。就比如：
快下班時，老板突然交代你，將一份上百頁甚至幾百頁的策劃書中的所有頁眉和頁腳全部刪除，下班之前就要。
遇到這樣的情況，真的要滿頭黑線了吧……
怎么辦？想必大多數(shù)人都是打開文檔，認認真真的挨個手動刪除。就像這樣……
上圖中這類采用了分節(jié)符，把每頁或每章節(jié)分隔開單獨設(shè)置了不同的頁眉頁腳，你若還在手動刪除它們，要刪到猴年馬月？只怕到最后留在公司加班的只剩你了，那時，你的耐心也被消磨完了吧！本文就教大家一招，只用3步就幫你解決這個問題！
操作方法：
1. 打開Word，新建一個空白Word文檔，按Alt+F11組合鍵，打開VBA編輯器。
2. 然后將下面的代碼復(fù)制粘貼到窗口中。點擊上方的“運行子過程/用戶窗體（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 ‘在所有選取項目中循環(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 ‘刪除頁眉中的內(nèi)容
myRange.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone ‘段落下邊框線
Set myRange = oSec.Footers(wdHeaderFooterPrimary).Range
myRange.Delete ‘刪除頁腳中的內(nèi)容
Next
oDoc.Close True
Next
End If
End With
End Sub
3. 此時，將彈出“瀏覽”對話框，選擇要刪除頁眉頁腳的Word文檔，然后點擊“打開”按鈕。
關(guān)閉所有窗口，再次打開剛剛被處理的Word文檔，即可發(fā)現(xiàn)，文檔中的所有頁眉頁腳都全部刪除啦！
就是這么簡單，搞定！交給老板，準時下班！
