批量删除多个Word文档的页眉页脚.docx

文档仅供参考 PAGE 1 干货！如何批量删除多个Word文档的页眉页脚 工作中，尤其是代理公司的员工，经常会为Word文档添加页眉页脚，如果页眉页脚不想要了，一个文件删除还好，若是大量文件要删除，会是很头疼的，因为一个一个处理效率实在太低了，这里提供一种利用宏批量处理文档页眉页脚的方式，快来学习吧。 批量删除word文档的页眉页脚，可以用下面的vba程序来实现，需要注意的是，在批量操作前，请先做好备份。 操作步骤如下： 先把需要删除页眉页脚的多个word文档放在一个文件夹下，然后打开其中一个文档。 2、选择一个文档打开，在打开的文档中，选择在“视图”或“工具”(版本不同，打开方式有所区别)菜单中选择“宏”，点击打开“宏” 3、随后弹出“宏”对话框，在宏名中输入“Application”，然后点击创建按钮（这里我之前测试时已经创建，大家自己创建一个新的即可）。 随后弹出“Microsoft visual basic”设计，在编辑处输入如下代码： 代码内容： Sub 批量删除文件夹里面所有Word文档的页眉页脚()Dim Fdlg As FileDialog, FlDim Fso, Fld, Fln, WkSet Fdlg = Application.FileDialog(msoFileDialogFolderPicker)With Fdlg.Title = 选择要处理目标文件夹 ——(删除里面所有Word文档的页眉页脚)If .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.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:=wdCharacter, Count:=1Selection.WholeStoryWith Selection.ParagraphFormat.Borders(wdBorderLeft).LineStyle = wdLineStyleNone.Borders(wdBorderRight).LineStyle = wdLineStyleNone.Borders(wdBorderTop).LineStyle = wdLineStyleNone.Borders(wdBorderBottom).LineStyle = wdLineStyleNoneWith .Borders.DistanceFromTop = 1.DistanceFromLeft = 4.DistanceFromBottom = 1.DistanceFromRight = 4.Shadow = FalseEnd WithEnd WithWith Options.DefaultBorderLineStyle = wdLineStyleSingle.DefaultBorderLineWidth = wdLineWidth075pt.DefaultBorderColor = wdColorAutomaticEnd WithIf Selection.HeaderFooter.IsHeader = True ThenActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooterElseActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeaderEnd IfSel