1. 首頁 > 生活 > >

wps頁眉頁腳怎么全部刪除 word頁眉頁腳怎么全部刪除

小知識

【wps頁眉頁腳怎么全部刪除 word頁眉頁腳怎么全部刪除】


文章插圖
wps頁眉頁腳怎么全部刪除 word頁眉頁腳怎么全部刪除

文章插圖
今天小編收到一個任務，老板不知道從哪里得到一些文件（有好幾百個，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 SectionDim oFile As Variant, myRange As RangeOn 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).RangemyRange.Delete '刪除頁眉中的內容myRange.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone '段落下邊框線Set myRange = oSec.Footers(wdHeaderFooterPrimary).RangemyRange.Delete '刪除頁腳中的內容NextoDoc.Close TrueNextEnd IfEnd WithEnd Sub