怎么在中批量刪除頁眉及頁腳

怎么在word中批量刪除頁眉及頁腳怎么在word中批量刪除頁眉及頁腳怎么在word中批量刪除頁眉及頁腳在平時工作中，我們有時會遇到一大堆文件需要批量刪除頁眉與頁腳，假如一個個翻開文件手工刪除的話，會很耗時間精力，下邊小編就教你怎么在word中批量刪除頁眉和頁腳

.word中批量刪除頁眉和頁腳的步驟

:第一，我先制作一個測試文件夾，里面包括幾個word文檔，都有頁眉

--百度經(jīng)驗這四個字，自然其余的文字也行，但是一個測試;下邊我們需要翻開宏，03版的宏不需要去開啟開發(fā)工具，只要重點擊菜單欄中的工具-宏-宏;進入宏對話框，我們能夠在宏名隨意輸入英文字母，在右邊點擊一下創(chuàng)建;接著，進入了宏代碼編寫框，將下邊代碼復(fù)制進來：Sub批量刪除頁眉頁腳()=FalseDimMyPathAsString,iAsInteger,myDocAsDocumentWith(msoFileDialogFolderPicker).Title="選大綱辦理目標(biāo)文件夾"&"——(刪除里面全部Word文檔的頁眉頁腳)"If.Show=-1ThenMyPath=.SelectedItems(1)ElseExitSubEndIfEndWithWith.LookIn=MyPath.FileType=msoFileTypeWordDocumentsIf.Execute>0ThenFori=1To.SetmyDoc=(FileName:=.FoundFiles(i))B能夠取代的宏以下是辦理格式所錄制的宏，可依據(jù)所需錄制(2).CloseEndIfwdOutlineViewThenwdPrintViewwdSeekCurrentPageHeaderUnit:=wdCharacter,Count:=1With.Borders(wdBorderLeft).LineStyle=wdLineStyleNone.Borders(wdBorderRight).LineStyle=wdLineStyleNone.Borders(wdBorderTop).LineStyle=wdLineStyleNone.Borders(wdBorderBottom).LineStyle=wdLineStyleNoneWith.Borders.DistanceFromTop=1.DistanceFromLeft=4.DistanceFromBottom=1.DistanceFromRight=4.Shadow=FalseEndWithEndWithWithOptions.DefaultBorderLineStyle=wdLineStyleSingle.DefaultBorderLineWidth=wdLineWidth075pt.DefaultBorderColor=wdColorAutomaticEndWithIf=TrueThenwdSeekCurrentPageFooterElsewdSeekCurrentPageHeaderEndIfUnit:=wdCharacter,Count:=1=wdSeekMainDocument(1).Footers(1).PageNumberAlignment:=_wdAlignPageNumberRight,FirstPage:=True以上能夠換成是你自己錄制的宏C公共部分的代碼=False'強迫履行“是”=True'強迫履行“否”退出NextEndIfEndWith=TrueMsgBox"所選Word文檔的頁眉頁腳已刪除!!!",64,"☆★辦理完成★"EndSub此刻，我們封閉窗口，從頭回到word界面，按下