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

利用宏批量删除多个Word页眉页脚有许多人刚接触WORD的新手，常常会遇到的问题就是怎样删除页眉页脚，当然一个Word里面删除页眉页脚不难，但有几百多个Word里面都有页眉页脚要你删除，那就难到不少人了，下面将针对这一问题，看看我是怎么利用宏批量删除多个Word页眉页脚，我献丑了工具/原料 运行环境WinXP/Vista/Win7/Win8 Word2003方法/步骤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 SubSub ConvertEqns() ConvertEqn