干货！如何批量删除多个Word文档的页眉页脚

1、干货！如何批量删除多个Word文档的页眉页脚工作中，尤其是代理公司的员工，经常会为Word文档添加页眉页脚，如果页眉页脚不想要了，一个文件删除还好，若是大量文件要删除，会是很头疼的，因为一个一个处理效率实在太低了，这里提供一种利用宏批量处理文档页眉页脚的方式，快来学习吧。批量删除word文档的页眉页脚，可以用下面的vba程序来实现，需要注意的是，在批量操作前，请先做好备份。操作步骤如下：先把需要删除页眉页脚的多个word文档放在一个文件夹下，然后打开其中一个文档。2、选择一个文档打开，在打开的文档中，选择在“视图”或“工具”(版本不同，打开方式有所区别)菜单中选择“宏”，点击打开“宏”3、随后

2、弹出“宏”对话框，在宏名中输入“Application”，然后点击创建按钮（这里我之前测试时已经创建，大家自己创建一个新的即可）。随后弹出“Microsoft visual basic”设计，在编辑处输入如下代码：代码内容：Sub 批量删除文件夹里面所有Word文档的页眉页脚()Dim Fdlg As FileDialog, FlDim Fso, Fld, Fln, WkSet Fdlg = Application.FileDialog(msoFileDialogFolderPicker)With Fdlg.Title = 选择要处理目标文件夹 & (删除里面所有Word文档的页眉页脚)If

3、.Show = -1 ThenMyPath = .SelectedItems(1)ElseExit SubEnd IfEnd WithSet Fso = CreateObject(Scripting.FileSystemObject)Set Fld = Fso.GetFolder(MyPath)Set Fln = Fld.FilesFor Each Wk In FlnSet myDoc = Documents.Open(FileName:=Fld & & Wk.Name)If ActiveWindow.View.SplitSpecial wdPaneNone ThenActiveWindow.

4、Panes(2).CloseEnd IfIf ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ActivePane.View.Type = wdOutlineView ThenActiveWindow.ActivePane.View.Type = wdPrintViewEnd IfActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeaderSelection.WholeStorySelection.Delete Unit:=wdCharacte

5、r, Count:=1Selection.WholeStoryWith Selection.ParagraphFormat.Borders(wdBorderLeft).LineStyle = wdLineStyleNone.Borders(wdBorderRight).LineStyle = wdLineStyleNone.Borders(wdBorderTop).LineStyle = wdLineStyleNone.Borders(wdBorderBottom).LineStyle = wdLineStyleNoneWith .Borders.DistanceFromTop = 1.Dis

6、tanceFromLeft = 4.DistanceFromBottom = 1.DistanceFromRight = 4.Shadow = FalseEnd WithEnd WithWith Options.DefaultBorderLineStyle = wdLineStyleSingle.DefaultBorderLineWidth = wdLineWidth075pt.DefaultBorderColor = wdColorAutomaticEnd WithIf Selection.HeaderFooter.IsHeader = True ThenActiveWindow.Activ

7、ePane.View.SeekView = wdSeekCurrentPageFooterElseActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeaderEnd IfSelection.WholeStorySelection.Delete Unit:=wdCharacter, Count:=1ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocumentSelection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _wdAlignPageNumberRight, FirstPage:=True 以上可以换成是你自己录制的宏 C公共部分的代码Application.DisplayAlerts = False 强制执行“是”ActiveDocument.Saved = True强制执行“否”ActiveDocument.Close 退出NextEnd Sub输入代码后，关闭窗口返回文档，重新选择在“视图”或“工具”菜单中选择“宏”-“宏”，在弹出的宏名中选择批量删除Word页眉页脚,最后点击“运行”确认即可快速地删除多个Word页眉页脚。注意：处