利用宏批量删除多个Word页眉页脚

利用宏批量删除多个Word页眉页脚有许多人刚接触WORD的新手，常常会遇到的问题就是怎样删除页眉页脚，当然一个Word里面删除页眉页脚不难，但有几百多个Word里面都有页眉页脚要你删除，那就难到不少人了，下面将针对这一问题，看看我是怎么利用宏批量删除多个Word页眉页脚，我献丑了工具/原料运行环境WinXP/Vista/Win7/Win8Word2003方法/步骤1.假如我手上有500个word文档需要删除页眉页脚2.先把需要删除页眉页脚的500个word文档放在一个文件夹下，然后打开其中一个文档3.在打开的文档中，选择在“工具”菜单中选择“宏”--“宏”4.随后弹出“宏”对话框，在宏名中输入Application，最后点击创建按钮5.随后弹出“Microsoftvisualbasic”设计，在编辑处输入如下代码：Sub批量删除Word页眉页脚()Application.ScreenUpdating=FalseDimMyPathAsString,iAsInteger,myDocAsDocumentWithApplication.FileDialog(msoFileDialogFolderPicker).Title=选择要处理目标文件夹&——(删除里面所有Word文档的页眉页脚)If.Show=-1ThenMyPath=.SelectedItems(1)ElseExitSubEndIfEndWithWithApplication.FileSearch.LookIn=MyPath.FileType=msoFileTypeWordDocumentsIf.Execute0ThenFori=1To.FoundFiles.CountSetmyDoc=Documents.Open(FileName:=.FoundFiles(i))'B可以替换的宏'以下是处理格式所录制的宏，可根据所需录制IfActiveWindow.View.SplitSpecialwdPaneNoneThenActiveWindow.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'强制执行“是”'ActiveDocument.Saved=True'强制执行“否”ActiveDocument.Close'退出NextEndIfEndWithApplication.ScreenUpdating=TrueMsgBox所选Word文档的页眉页脚已删除！！！,64,☆★批量处理完毕★☆EndSubSubConvertEqns()''ConvertEqnsMacro'宏在2014-6-25由USER创建'EndSub6.输入代码后，关闭窗口返回文档，重新选择在“工具”菜单中选择“宏”--“宏”，在弹出的宏名中选择批量删除Word页眉页脚,最后点击“运行”---确认即可快速地删除500个Word页眉页脚