今天小編收到一個任務，老闆不知道從哪裡得到一些文件（有好幾百個，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

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!