怎么在word中批量删除页眉和页脚

怎么在word中批量删除页眉和页脚

　　在日常工作中，我们有时会碰到一大堆文件需要批量删除页眉与页脚，如果一个个打开文件手工删除的话，会很耗时间精力，下面小编就教你怎么在word中批量删除页眉和页脚，希望对你有帮助！

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

　　首先，我先制作一个测试文件夹，里面包含几个word文档，都有页眉--百度经验这四个字，当然其他的文字也行，只是一个测试;

　　下面我们需要打开宏，03版的宏不需要去开启开发工具，只需要点击菜单栏中的工具-宏-宏;

学习啦在线学习网 　　进入宏对话框，我们可以在宏名随便输入英文字母，在右侧点击一下创建;

　　接着，进入了宏代码编写框，将下面代码复制进来：

学习啦在线学习网 　　Sub 批量删除页眉页脚()

　　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

学习啦在线学习网 　　现在，我们关闭窗口，重新回到word界面，按下宏快捷键，Alt+F8，看到刚才的宏名，点击运行;

　　接着软件会让我们选择要批量处理的文件夹，选中之，然后稍等片刻，即会弹出--所选Word文档的页眉页脚已删除。

　　>>>下一页更多精彩“删除word中页眉和页脚方法”