今天小編收到一個任務，老闆不知道從哪裡得到一些文件（有好幾百個，Word格式），但是這些文件的頁眉和頁腳上都有LOGO，於是乎老闆就安排了我一個任務，把這些頁眉也頁腳去掉，

一看這麼多，我就來氣，這不是欺負我工資低嘛，完全是一個不需要任何技術含量的重複勞動，但是真要一個個的來刪除，估計得刪得我老眼昏花，四肢發麻……，雖然小編學識不淵博，但是也聽過一個叫VBA的東東啊……；

於是乎，小編就開始Research起來，是的，中文可以翻譯為研究，但是小編實際上是re-search，哈哈；於是乎就找到了下面的代碼，不用調試，直接可用；

使用方法

1、隨意新建一個Word文件，按Alt+F11，進入VBA編輯器

2、粘貼進去下面的代碼

VBA編輯器

3、點擊上方綠色按鈕，運行即可

4、選擇要刪除頁眉頁腳的文件（可以批量選擇），然後就等著耍吧

5、搞定；

6、假裝繼續手動刪除頁眉頁腳，然後就可以在這裡耍兩天了

附代碼如下：

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