2024年1月10日发(作者：)

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

干货！如何批量删除多个Word文档的页眉页脚工作中，尤其是代理公司的员工，经常会为Word文档添加页眉页脚，如果页眉页脚不想要了，一个文件删

除还好，若是大量文件要删除，会是很头疼的，因为一个一个处理效率实在太低了，这里提供一种利用宏批量处理文档页眉页脚的方式，快来学习吧

。批量删除word文档的页眉页脚，可以用下面的vba程序来实现，需要注意的是，在批量操作前，请先做好备份。操作步骤如下：先把需要删

除页眉页脚的多个word文档放在一个文件夹下，然后打开其中一个文档。2、选择一个文档打开，在打开的文档中，选择在“视图”或“工具”

(版本不同，打开方式有所区别)菜单中选择“宏”，点击打开“宏”3、随后弹出“宏”对话框，在宏名中输入“Application”，然

后点击"创建"按钮（这里我之前测试时已经创建，大家自己创建一个新的即可）。随后弹出“Microsoftvisualbasic”

设计，在编辑处输入如下代码：代码内容：Sub批量删除文件夹里面所有Word文档的页眉页脚()DimFdlgAsFileDi

alog,FlDimFso,Fld,Fln,WkSetFdlg=alog(ms

oFileDialogFolderPicker)="选择要处理目标文件夹"&"——(删除里面

所有Word文档的页眉页脚)"=-1ThenMyPath=.SelectedItems(1)ElseEx

itSubEndIfEndWithSetFso=CreateObject("stemO

bject")SetFld=der(MyPath)SetFln=orEach

WkInFlnSetmyDoc=(FileName:=Fld&""&

e)pecial<>wdPaneNoneThenActiveWindo

(2).=wdNo

rmalViewOrActiveWindow._=wdOutlineViewT

=wdPrintViewEndIfActiveWin

ew=wdSeekCurrentPageHeaderSelection.W

Unit:=wdCharacter,Count:=

s(wdBorderLeft).Line

Style=s(wdBorderRight).LineStyle=wdLine

s(wdBorderTop).LineStyle=

s(wdBorderBottom).LineStyle=

ceFromTop=ceFromLeft=ceFromBottom=c

eFromRight==t

BorderLineStyle=tBorderLineWidth=wdLi

tBorderColor=wdColorAutomaticEndWithIfSele

er=

ew=Pane.

ew=tory

Unit:=wdCharacter,Count:=Pa

ew=ns(1).Footer

s(1).eNumberAlignment:=_wdAlignPageNumberRigh

t,FirstPage:=True''以上可以换成是你自己录制的宏''C公共部分的代码yAl

erts=False''强制执行“是”''=True''强制执行“否”ActiveDo

''退出NextEndSub输入代码后，关闭窗口返回文档，重新选择在“视图”或“工具”菜单中选择“宏”-

-“宏”，在弹出的宏名中选择"批量删除Word页眉页脚",最后点击“运行”---确认即可快速地删除多个Word页眉页脚。注意：处理过程中请保持第一个打开的文档一直处于打开状态。怎么样很简单吧，快来试试吧！更多精彩内容，敬请期待！