在實(shí)際工作中，我們時(shí)常需要添加頁(yè)眉頁(yè)腳，那如果不需要，該如何刪除呢？怎樣批量刪除多個(gè)文檔的頁(yè)眉頁(yè)腳呢？本期與大家分享相應(yīng)的技巧 。
1、刪除單個(gè)文檔的頁(yè)眉頁(yè)腳
雙擊頁(yè)眉處，進(jìn)入編輯狀態(tài)，然后選中文本內(nèi)容按刪除鍵，之后再點(diǎn)擊開(kāi)始——字體——清除所有格式清除頁(yè)眉橫線，最后關(guān)閉頁(yè)眉和頁(yè)腳即可 。
PS：想了解更多刪除頁(yè)眉橫線的刪除方法，可以查看《Word 文檔中間的橫線，怎么刪除不了？》 。
2、刪除多個(gè)文檔的頁(yè)眉頁(yè)腳
如何批量刪除上百個(gè) Word 文檔的頁(yè)眉頁(yè)腳呢？
這里需要借用 VBA 來(lái)實(shí)現(xiàn) 。
新建一個(gè)空白文檔，點(diǎn)擊開(kāi)發(fā)工具——Visual Basic，在打開(kāi)的界面中點(diǎn)擊插入——模塊，然后復(fù)制以下代碼：
Sub 批量刪除頁(yè)眉頁(yè)腳()
‘此代碼功能為列出指定文件夾中所有選取的 WORD 文件全路徑名
Dim myDialog As FileDialog, oDoc AsDocument, oSec As Section
Dim oFile As Variant, myRange As Range
On Error Resume Next
‘定義一個(gè)文件夾選取對(duì)話框
Set myDialog =Application.FileDialog(msoFileDialogFilePicker)
With myDialog
.Filters.Clear ‘清除所有文件篩選器中的項(xiàng)目
【批量刪除多個(gè)Word頁(yè)眉頁(yè)腳 頁(yè)眉頁(yè)腳怎么全部刪除】 .Filters.Add “所有 Word 文件”, “*.doc,*.docx”, 1 ‘增加篩選器的項(xiàng)目為所有 Word 文件
.AllowMultiSelect = True ‘允許多項(xiàng)選擇
If .Show = -1 Then ‘確定
For Each oFile In .SelectedItems ‘在所有選取項(xiàng)目中循環(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 ‘刪除頁(yè)眉中的內(nèi)容
myRange.ParagraphFormat.Borders(wdBorderBottom).LineStyle= wdLineStyleNone ‘段落下邊框線
Set myRange =oSec.Footers(wdHeaderFooterPrimary).Range
myRange.Delete ‘刪除頁(yè)腳中的內(nèi)容
Next
oDoc.Close True
Next
End If
End With
End Sub
點(diǎn)擊運(yùn)行，之后會(huì)跳出相應(yīng)的對(duì)話框，然后選擇要清除的文檔打開(kāi)即可批量刪除頁(yè)眉頁(yè)腳 。
推薦閱讀
- 手機(jī)/電腦視頻刪除后四種方法 如何恢復(fù)刪除的視頻和照片
- 手機(jī)里的照片和視頻批量保存到電腦 手機(jī)大量照片快速傳到電腦
- Mac電腦怎么刪除殘留文件 蘋果電腦刪除快捷鍵在哪里
- 2個(gè)簡(jiǎn)單高效方法推薦 怎樣恢復(fù)手動(dòng)刪除的微信聊天記錄
- 微信好友批量刪除怎樣操作 微信朋友圈批量刪除方法
- Excel如何批量查找指定內(nèi)容并導(dǎo)出 excel表格怎么查找指定內(nèi)容
- Word頁(yè)眉操作還不熟練嗎 word頁(yè)眉橫線怎么刪除
- Excel表格中有大量空白行 excel怎么刪除空白頁(yè)
- word 如何刪除中間多余空白頁(yè) 怎么刪除word多余的頁(yè)面
- 3個(gè)辦法輕松解決 手機(jī)相冊(cè)里的照片刪除了怎么恢復(fù)