怎么在中批量删除页眉及页脚

怎么在word中批量删除页眉及页脚怎么在word中批量删除页眉及页脚怎么在word中批量删除页眉及页脚在平时工作中，我们有时会遇到一大堆文件需要批量删除页眉与页脚，假如一个个翻开文件手工删除的话，会很耗时间精力，下边小编就教你怎么在word中批量删除页眉和页脚

.word中批量删除页眉和页脚的步骤

:第一，我先制作一个测试文件夹，里面包括几个word文档，都有页眉

--百度经验这四个字，自然其余的文字也行，但是一个测试;下边我们需要翻开宏，03版的宏不需要去开启开发工具，只要重点击菜单栏中的工具-宏-宏;进入宏对话框，我们能够在宏名随意输入英文字母，在右边点击一下创建;接着，进入了宏代码编写框，将下边代码复制进来：Sub批量删除页眉页脚()=FalseDimMyPathAsString,iAsInteger,myDocAsDocumentWith(msoFileDialogFolderPicker).Title="选大纲办理目标文件夹"&"——(删除里面全部Word文档的页眉页脚)"If.Show=-1ThenMyPath=.SelectedItems(1)ElseExitSubEndIfEndWithWith.LookIn=MyPath.FileType=msoFileTypeWordDocumentsIf.Execute>0ThenFori=1To.SetmyDoc=(FileName:=.FoundFiles(i))B能够取代的宏以下是办理格式所录制的宏，可依据所需录制(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界面，按下