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

1、利用宏批量删除多个Word页眉页脚有许多人刚接触WORD的新手，常常会遇到的问题就是怎样删除页眉页脚，当然一个Word里面删除页眉页脚不难，但有几百多个Word里面都有页眉页脚要你删除，那就难到不少人了，下面将针对这一问题，看看我是怎么利用宏批量删除多个Word页眉页脚，我献丑了工具/原料· 运行环境WinXP/Vista/Win7/Win8· Word2003方法/步骤1. 假如我手上有500个word文档需要删除页眉页脚2. 先把需要删除页眉页脚的500个word文档放在一个文件夹下，然后打开其中一个文档3. 在打开的文档中，选择在“工具”菜单中选择“宏”-“宏”4.

2、随后弹出“宏”对话框，在宏名中输入"Application"，最后点击"创建"按钮5. 随后弹出“Microsoft visual basic”设计，在编辑处输入如下代码：Sub 批量删除Word页眉页脚()  Application.ScreenUpdating = False  Dim MyPath As String, i As Integer, myDoc As Document  With Application.FileDialog(msoFileDialogFolderPicker)   

3、.Title = "选择要处理目标文件夹" & "(删除里面所有Word文档的页眉页脚)"    If .Show = -1 Then      MyPath = .SelectedItems(1)    Else      Exit Sub    End If  End With  With Application.FileSearch    .LookIn = MyPath 

4、   .FileType = msoFileTypeWordDocuments    If .Execute > 0 Then      For i = 1 To .FoundFiles.Count        Set myDoc = Documents.Open(FileName:=.FoundFiles(i)      ' B可以替换的宏' 以下是处理格式所录制的宏，可根据所需录制If ActiveWindow.View.SplitSpe

5、cial <> wdPaneNone Then        ActiveWindow.Panes(2).Close    End If    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _        ActivePane.View.Type = wdOutlineView Then        ActiveWindow.Ac

6、tivePane.View.Type = wdPrintView    End If    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader    Selection.WholeStory    Selection.Delete Unit:=wdCharacter, Count:=1    Selection.WholeStory    With Selection.ParagraphFormat&

7、#160;       .Borders(wdBorderLeft).LineStyle = wdLineStyleNone        .Borders(wdBorderRight).LineStyle = wdLineStyleNone        .Borders(wdBorderTop).LineStyle = wdLineStyleNone        .Borders(wdBorderBottom).LineStyle = wd

8、LineStyleNone        With .Borders            .DistanceFromTop = 1            .DistanceFromLeft = 4            .DistanceFromBottom = 1            .DistanceFromR

9、ight = 4            .Shadow = False        End With    End With    With Options        .DefaultBorderLineStyle = wdLineStyleSingle        .DefaultBorderLineWidth = wdLineWidth075pt 

10、60;     .DefaultBorderColor = wdColorAutomatic    End With    If Selection.HeaderFooter.IsHeader = True Then        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter    Else        ActiveWindow.ActivePane.V

11、iew.SeekView = wdSeekCurrentPageHeader    End If    Selection.WholeStory    Selection.Delete Unit:=wdCharacter, Count:=1    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument    Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlign

12、ment:= _        wdAlignPageNumberRight, FirstPage:=True' 以上可以换成是你自己录制的宏' C公共部分的代码Application.DisplayAlerts = False '强制执行“是”'ActiveDocument.Saved = True'强制执行“否”ActiveDocument.Close '退出      Next    End If  End With  Application.ScreenUpdating = True  MsgBox "所选Word文档的页眉页脚已删除！", 64, "批量处理完毕"En