怎么删除页眉_word页眉处理技巧：用VBA快速删除批量页眉页脚

编辑器:一个长文档，假设有1000页，您有没有想过如何快速批量删除该文档中的所有页眉和页脚？如果你考虑过，你会怎么删除它？考虑到这个问题，我们发现了一种鲜为人知的Word页眉和页脚批处理技术。让我们看看它！当

在工作场所工作时，我们经常要处理各种各样的Word文档，并且总是会遇到各种各样的问题。例如，在工作结束时，老板突然告诉你要删除一本数百页甚至数百页的规划书中的所有页眉和页脚，并且要在工作结束前删除。< br>

遇到这样的情况，真想满脑袋黑线...

？据推测，大多数人会打开文档，然后一个接一个地手工删除。< br>

就像这样...

上图使用了分节符，它将每一页或每一章分开，并分别设置不同的页眉和页脚。如果您仍然手动删除它们，您会在年底之前删除它们吗？恐怕到头来只有你会留在公司加班，那样你的耐心就会耗尽。这篇文章将教你一个技巧，并帮助你只用三个步骤解决这个问题！< br>

操作方法:< br>

1。打开Word，创建一个新的空白Word文档，然后按Alt+F11打开VBA编辑器< br>

2。然后将下列代码复制并粘贴到窗口中单击上面的“运行子流程/用户表单(F5)”绿色三角形按钮运行代码< br>

Sub批量删除页眉和页脚
'此代码函数用于列出指定文件夹中所有选定WORD文件的完整路径名
dimmydialog asfiledialog，odoc asdocument，osecssection
dimofile作为变体。“my range as range
on errorresumentext
”定义了一个文件夹选择对话框
设置my dialog = application . file dialog(msofilelogfile picker)
和mydialog
。“filters.clear”从所有文件筛选器中清除项目< br>。筛选器。添加“所有Word文件”，“*”。博士。docx "，1 '向所有Word文件添加筛选项目。“允许多重选择=真”允许多重选择
如果。显示= -1然后“确定”选定项目中的每个文件在所有选定项目间循环。范围
我的范围。“删除”删除标题“my range . paragraph format . borders(wdborderbottom)”的内容。“线条样式= wdLineStyleNone”段落底部边框线
setmyrange = osec .页脚(wdheaderfooterprimary)。范围
我的范围。“删除”将删除ODOC下一个页脚中的内容。如果
以
结束sub

3结束，则关闭true
下一个
结束。此时，将弹出“浏览”对话框，选择要删除页眉页脚的Word文档，然后单击“打开”按钮。

关闭所有窗口，打开刚刚再次处理过的Word文档，发现文档中的所有页眉和页脚都已被删除！

就这么简单，搞定！交给老板，准时下班！

* * * *教育部-文字批处理技能* * * *

原件:教育部(未经同意不得复制)

更多教程:教育部(www.itblw.com)

微信公众号:word blw