Word2003中怎么使用宏批量删除多个页眉页脚

　　有许多人刚接触WORD的新手，常常会遇到的问题就是怎样删除页眉页脚，当然一个Word里面删除页眉页脚不难，但有几百多个Word里面都有页眉页脚要你删除，那就难到不少人了，下面将针对这一问题，看看我是怎么利用宏批量删除多个Word页眉页脚，我献丑了。
　　1、假如我手上有500个word文档需要删除页眉页脚
　　2、先把需要删除页眉页脚的500个word文档放在一个文件夹下，然后打开其中一个文档
　　3、在打开的文档中，选择在“ 工具 ”菜单中选择“ 宏”--“ 宏 ”
　　4、随后弹出“ 宏 ”对话框，在宏名中输入＂ Application ＂，最后点击 ＂创建 ＂按钮
　　5、随后弹出“Microsoft visual basic”设计， 在编辑处输入如下代码
　　Sub 批量删除Word页眉页脚()
　　Application.ScreenUpdating = False
　　Dim MyPath As String， i As Integer， myDoc As Document
　　With Application.FileDialog(msoFileDialogFolderPicker)
　　.Title = ＂选择要处理目标文件夹＂ & ＂——(删除里面所有Word文档的页眉页脚)＂
　　If .Show = -1 Then
　　MyPath = .SelectedItems(1)
　　Else
　　Exit Sub
　　End If
　　End With
　　With Application.FileSearch
　　.LookIn = MyPath
　　.FileType = msoFileTypeWordDocuments
　　If .Execute > 0 Then
　　For i = 1 To .FoundFiles.Count
　　Set myDoc = Documents.Open(FileName:=.FoundFiles(i))
　　' B可以替换的宏
　　' 以下是处理格式所录制的宏，可根据所需录制
　　If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
　　ActiveWindow.Panes(2).Close
　　End If
　　If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
　　ActivePane.View.Type = wdOutlineView Then
　　ActiveWindow.ActivePane.View.Type = wdPrintView
　　End If
　　ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
　　Selection.WholeStory
　　Selection.Delete Unit:=wdCharacter， Count:=1
　　Selection.WholeStory
　　With Selection.ParagraphFormat
　　.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
　　.Borders(wdBorderRight).LineStyle = wdLineStyleNone
　　.Borders(wdBorderTop).LineStyle = wdLineStyleNone
　　.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
　　With .Borders
　　.DistanceFromTop = 1
　　.DistanceFromLeft = 4
　　.DistanceFromBottom = 1
　　.DistanceFromRight = 4
　　.Shadow = False
　　End With
　　End With
　　With Options
　　.DefaultBorderLineStyle = wdLineStyleSingle
　　.DefaultBorderLineWidth = wdLineWidth075pt
　　.DefaultBorderColor = wdColorAutomatic
　　End With
　　If Selection.HeaderFooter.IsHeader = True Then
　　ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
　　Else
　　ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
　　End If
　　Selection.WholeStory
　　Selection.Delete Unit:=wdCharacter， Count:=1
　　ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
　　Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
　　wdAlignPageNumberRight， FirstPage:=True
　　' 以上可以换成是你自己录制的宏
　　' C公共部分的代码
　　Application.DisplayAlerts = False '强制执行“是”
　　'ActiveDocument.Saved = True'强制执行“否”
　　ActiveDocument.Close '退出
　　Next
　　End If
　　End With
　　Application.ScreenUpdating = True
　　MsgBox ＂所选Word文档的页眉页脚已删除!!!＂， 64， ＂☆★批量处理完毕★☆＂
　　End Sub
　　Sub ConvertEqns()
　　'
　　' ConvertEqns Macro
　　' 宏在 2014-6-25 由 USER 创建
　　'
　　End Sub
　　6、输入代码后，关闭窗口返回文档，重新选择在“ 工具 ”菜单中选择“ 宏”--“宏 ”，在弹出的宏名中选择＂批量删除Word页眉页脚＂，最后点击“ 运行 ”---确认即可快速地删除500个Word页眉页脚