2024-02-03辦公

在職場辦公時，我們經常會處理各種Word文件，也總會遇到各種型別的問題。就比如：

快下班時，老板突然交代你，將一份上百頁甚至幾百頁的策劃書中的所有頁首和頁尾全部刪除，下班之前就要。

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

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

就像這樣……

上圖中這類采用了分節符，把每頁或每章節分隔開單獨設定了不同的頁首頁尾，你若還在手動刪除它們，要刪到猴年馬月？只怕到最後留在公司加班的只剩你了，那時，你的耐心也被消磨完了吧！

本文就教大家一招，只用3步就幫你解決這個問題！

操作方法：

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

2. 然後將下面的程式碼復制貼上到視窗中。點選上方的「執行子過程/使用者表單（F5）」綠色三角形按鈕，執行程式碼。

Sub 批次刪除頁首頁尾()
'此程式碼功能為列出指定資料夾中所有選取的WORD檔全路徑名
Dim myDialog As FileDialog, oDoc As Document, oSec As p
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.ps '文件的節中迴圈
Set myRange = oSec.Headers(wdHeaderFooterPrimary).Range
myRange.Delete '刪除頁首中的內容
myRange.ParagraphFormat.Borders(wdBorderBottom).Line style = wdLine styleNone '段落下邊框線
Set myRange = oSec.Footers(wdHeaderFooterPrimary).Range
myRange.Delete '刪除頁尾中的內容
Next
oDoc.Close True
Next
End If
End With
End Sub