wps office頁眉頁腳怎么刪除？

wps office頁眉頁腳怎么刪除？

wps office頁眉頁腳怎么刪除？在職場辦公時(shí)，我們經(jīng)常會(huì)處理各種Word文檔，也總會(huì)遇到各種類型的問題。就比如：

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

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

怎么辦？想必大多數(shù)人都是打開文檔，認(rèn)認(rèn)真真的挨個(gè)手動(dòng)刪除。就像這樣……

上圖中這類采用了分節(jié)符，把每頁或每章節(jié)分隔開單獨(dú)設(shè)置了不同的頁眉頁腳，你若還在手動(dòng)刪除它們，要?jiǎng)h到猴年馬月？只怕到最后留在公司加班的只剩你了，那時(shí)，你的耐心也被消磨完了吧！本文就教大家一招，只用3步就幫你解決這個(gè)問題！

操作方法：

1. 打開Word，新建一個(gè)空白Word文檔，按Alt+F11組合鍵，打開VBA編輯器。

Sub 批量刪除頁眉頁腳()

‘此代碼功能為列出指定文件夾中所有選取的WORD文件全路徑名

Dim myDialog As FileDialog, oDoc As Document, oSec As Section

Dim oFile As Variant, myRange As Range

On Error Resume Next

‘定義一個(gè)文件夾選取對話框

Set myDialog = Application.FileDialog(msoFileDialogFilePicker)

With myDialog

.Filters.Clear ‘清除所有文件篩選器中的項(xiàng)目

.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 ‘刪除頁眉中的內(nèi)容

myRange.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone ‘段落下邊框線

Set myRange = oSec.Footers(wdHeaderFooterPrimary).Range

myRange.Delete ‘刪除頁腳中的內(nèi)容

Next

oDoc.Close True

Next

End If

End With

End Sub

關(guān)閉所有窗口，再次打開剛剛被處理的Word文檔，即可發(fā)現(xiàn)，文檔中的所有頁眉頁腳都全部刪除啦！

就是這么簡單，搞定！交給老板，準(zhǔn)時(shí)下班！

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。