如何批量刪除多個(gè)Word文檔的頁眉頁腳

干貨！如何批量刪除多個(gè)Word文檔的頁眉頁腳工作中，尤其是代理公司的員工，經(jīng)常會(huì)為Word文檔添加頁眉頁腳，如果頁眉頁腳不想要了，一個(gè)文件刪除還好，若是大量文件要?jiǎng)h除，會(huì)是很頭疼的，因?yàn)橐粋€(gè)一個(gè)處理效率實(shí)在太低了，這里提供一種利用宏批量處理文檔頁眉頁腳的方式，快來學(xué)習(xí)吧。批量刪除word文檔的頁眉頁腳，可以用下面的vba程序來實(shí)現(xiàn)，需要注意的是，在批量操作前，請(qǐng)先做好備份。操作步驟如下：1、先把需要?jiǎng)h除頁眉頁腳的多個(gè)word文檔放在一個(gè)文件夾下，然后打開其中一個(gè)文檔。修改日期類型大小回201弭國暴公憲千考式工行颼叱能力加股，與式股室.dec20194.138:55GOC也1772KB回201酢國定公會(huì)員考日行訓(xùn)顛及普賓（地市垢）.doc201&4,1116:57DCK■煙1.349KB回2018年國家公務(wù)員考4行測(cè)真至蛻答案（國告E）.doc20194.1116:57DQC刈1J42KEOJ2叮睥國家錄用公資員考試富強(qiáng)取業(yè)能力硼其感卷（...2019.4,1116:59DOCXSB958KBD]201眸國冢錄用公務(wù)N考試工罰其建閭1苣級(jí)〕.dost2019.4,1116:53DOCXS^30KB由201弭國冢金用公務(wù)前考試岑.王港？三越卷-幣（雉）以下….20194.1116:56DOCX331106KB回加1眸公務(wù)具考試由至翳極顫Ids20194.1116:52DOCg^184.KBH]廣西公務(wù)吳考試丘木題型答案異考,6口=2019.4.111&57DOCX*B20KE回豐詒大蚱文宓背為:LM會(huì)由諂金句.ebex2O1B.5,512:08DOCXSB25KB2、選擇一個(gè)文檔打開，在打開的文檔中，選擇在“視圖”或“工具”（版本不同，打開方式有所區(qū)別）菜單中選擇“宏”，點(diǎn)擊打開“宏”眸日宗會(huì)月公務(wù)日當(dāng)云小歪3耳即,聞苦即備E港喀臉-Word眸日宗會(huì)月公務(wù)日當(dāng)云小歪3耳即,聞苦即備E港喀臉-Word切玨妁也當(dāng)E華至既與E0?口中詔國匐Q□顯五比例［￡>0%T*WS三軍相國聯(lián)甌ma二:r頁面祖圖Web版式觀圖視￡□網(wǎng)名倏品hn昌目羊工f'-tn口口的品示比忸1WS■孑巨富顯示上網(wǎng)書新w密口coE甥麗12F帶?有口切艮宅匚留去宏、AL。42^246^1?cd-12U16IE20±J2fl2flissoaaJ43*3EJO心依把44:1愧蹩開:哈海及設(shè)計(jì)RIH1市用引用郵件寄閩力：?訓(xùn)SOLIDWOfiKSPDMACfiOBAl稀t忌中□D2013年晦錄用公務(wù)員考試4申論，真題卷??蝴以上侑剛蝴）綜a管整3、隨后彈出“宏”對(duì)話框，在宏名中輸入“人口口1瓦@5皿”，然后點(diǎn)擊"創(chuàng)建"按鈕（這里我之前測(cè)試時(shí)已經(jīng)創(chuàng)建，大家自己創(chuàng)建一個(gè)新的即可）。

隨后彈出“Microsoftvisualbasic”設(shè)計(jì)，在編輯處輸入如下代碼：代碼內(nèi)容：Sub批量刪除文件夾里面所有Word文檔的頁眉頁腳()DimFdlgAsFileDialog,FlDimFso,Fld,Fln,WkSetFdlg=Application.FileDialog(msoFileDialogFolderPicker)WithFdlg.Title="選擇要處理目標(biāo)文件夾"&"—-(刪除里面所有Word文檔的頁眉頁腳)"If.Show=-1ThenMyPath=.SelectedItems(1)ElseExitSubEndIfEndWithSetFso=CreateObject("Scripting.FileSystemObject")SetFld=Fso.GetFolder(MyPath)SetFln=Fld.FilesForEachWkInFlnSetmyDoc=Documents.Open(FileName:=Fld&"\"&Wk.Name)IfActiveWindow.View.SplitSpecial<>wdPaneNoneThenActiveWindow.Panes(2).CloseEndIfIfActiveWindow.ActivePane.View.Type=wdNormalViewOrActiveWindow.ActivePane.View.Type=wdOutlineViewThenActiveWindow.ActivePane.View.Type=wdPrintViewEndIfActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageHeaderSelection.WholeStorySelection.DeleteUnit:=wdCharacter,Count:=1Selection.WholeStoryWithSelection.ParagraphFormat.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=wdColorAutomaticEndWithIfSelection.HeaderFooter.IsHeader=TrueThenActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageFooterElseActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageHeaderEndIfSelection.WholeStorySelection.DeleteUnit:=wdCharacter,Count:=1ActiveWindow.ActivePane.View.SeekView=wdSeekMainDocumentSelection.Sections(1).Footers(1).PageNumbers.AddPageNumberAlignment:=_wdAlignPageNumberRight,FirstPage:=True'以上可以換成是你自己錄制的宏'C公共部分的代碼Application.DisplayAlerts=False'強(qiáng)制執(zhí)行“是”'ActiveDocument.Saved=True'強(qiáng)制執(zhí)行“否”ActiveDocument.Close'退出NextE