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

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

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

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

--百度經(jīng)驗(yàn)這四個(gè)字，自然其余的文字也行，但是一個(gè)測試;下邊我們需要翻開宏，03版的宏不需要去開啟開發(fā)工具，只要重點(diǎn)擊菜單欄中的工具-宏-宏;進(jìn)入宏對話框，我們能夠在宏名隨意輸入英文字母，在右邊點(diǎn)擊一下創(chuàng)建;接著，進(jìn)入了宏代碼編寫框，將下邊代碼復(fù)制進(jìn)來：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'強(qiáng)迫履行“是”=True'強(qiáng)迫履行“否”退出NextEndIfEndWith=TrueMsgBox"所選Word文檔的頁眉頁腳已刪除!!!",64,"☆★辦理完成★"EndSub此刻，我們封閉窗口，從頭回到word界面，按下