干货！如何批量删除多个Word文档的页眉页脚工作中，尤其是代理公司的员工，经常会为Word文档添加页眉页脚，如果页眉页脚不想要了，一个文件删
除还好，若是大量文件要删除，会是很头疼的，因为一个一个处理效率实在太低了，这里提供一种利用宏批量处理文档页眉页脚的方式，快来学习吧
。批量删除word文档的页眉页脚，可以用下面的vba程序来实现，需要注意的是，在批量操作前，请先做好备份。操作步骤如下：先把需要删
除页眉页脚的多个word文档放在一个文件夹下，然后打开其中一个文档。2、选择一个文档打开，在打开的文档中，选择在“视图”或“工具”
(版本不同，打开方式有所区别)菜单中选择“宏”，点击打开“宏”3、随后弹出“宏”对话框，在宏名中输入“Application”，然
后点击"创建"按钮（这里我之前测试时已经创建，大家自己创建一个新的即可）。随后弹出“Microsoftvisualbasic”
设计，在编辑处输入如下代码：代码内容：Sub批量删除文件夹里面所有Word文档的页眉页脚()DimFdlgAsFileDi
alog,FlDimFso,Fld,Fln,WkSetFdlg=Application.FileDialog(ms
oFileDialogFolderPicker)WithFdlg.Title="选择要处理目标文件夹"&"——(删除里面
所有Word文档的页眉页脚)"If.Show=-1ThenMyPath=.SelectedItems(1)ElseEx
itSubEndIfEndWithSetFso=CreateObject("Scripting.FileSystemO
bject")SetFld=Fso.GetFolder(MyPath)SetFln=Fld.FilesForEach
WkInFlnSetmyDoc=Documents.Open(FileName:=Fld&"\"&Wk.Nam
e)IfActiveWindow.View.SplitSpecial<>wdPaneNoneThenActiveWindo
w.Panes(2).CloseEndIfIfActiveWindow.ActivePane.View.Type=wdNo
rmalViewOrActiveWindow._ActivePane.View.Type=wdOutlineViewT
henActiveWindow.ActivePane.View.Type=wdPrintViewEndIfActiveWin
dow.ActivePane.View.SeekView=wdSeekCurrentPageHeaderSelection.W
holeStorySelection.DeleteUnit:=wdCharacter,Count:=1Selection.Wh
oleStoryWithSelection.ParagraphFormat.Borders(wdBorderLeft).Line
Style=wdLineStyleNone.Borders(wdBorderRight).LineStyle=wdLine
StyleNone.Borders(wdBorderTop).LineStyle=wdLineStyleNone.Border
s(wdBorderBottom).LineStyle=wdLineStyleNoneWith.Borders.Distan
ceFromTop=1.DistanceFromLeft=4.DistanceFromBottom=1.Distanc
eFromRight=4.Shadow=FalseEndWithEndWithWithOptions.Default
BorderLineStyle=wdLineStyleSingle.DefaultBorderLineWidth=wdLi
neWidth075pt.DefaultBorderColor=wdColorAutomaticEndWithIfSele
ction.HeaderFooter.IsHeader=TrueThenActiveWindow.ActivePane.Vi
ew.SeekView=wdSeekCurrentPageFooterElseActiveWindow.ActivePane.
View.SeekView=wdSeekCurrentPageHeaderEndIfSelection.WholeStory
Selection.DeleteUnit:=wdCharacter,Count:=1ActiveWindow.ActivePa
ne.View.SeekView=wdSeekMainDocumentSelection.Sections(1).Footer
s(1).PageNumbers.AddPageNumberAlignment:=_wdAlignPageNumberRigh
t,FirstPage:=True''以上可以换成是你自己录制的宏''C公共部分的代码Application.DisplayAl
erts=False''强制执行“是”''ActiveDocument.Saved=True''强制执行“否”ActiveDo
cument.Close''退出NextEndSub输入代码后，关闭窗口返回文档，重新选择在“视图”或“工具”菜单中选择“宏”-
-“宏”，在弹出的宏名中选择"批量删除Word页眉页脚",最后点击“运行”---确认即可快速地删除多个Word页眉页脚。注意：处理过程中请保持第一个打开的文档一直处于打开状态。怎么样很简单吧，快来试试吧！更多精彩内容，敬请期待！ |
|
