word如何删除页眉页脚的分节符,超详细流程分解介绍

一篇很长的文档,假设有1000页,你有没有想过如何快速删除这篇文档中的所有页眉页脚?如果有,你会用什么方法删除?带着这个问题,我们发现了一个几乎不为人知的Word页眉页脚批量处理技巧 。我们来看看吧!
【word如何删除页眉页脚的分节符,超详细流程分解介绍】在职场工作中,我们经常要处理各种Word文档,总会遇到各种类型的问题 。比如,快下班的时候,老板突然告诉你,把一本几百页甚至几百页的策划书的页眉页脚全部删除,上班前需要 。
遇到这样的情况,真想满头黑线...
我该怎么办?想必大部分人打开文档,都是小心翼翼地一个个手动删除 。
就像这样...
在上图中,分节符用于此类别 。将每个页面或章节分开,分别设置不同的页眉和页脚 。如果还是手动删除,要删除到猴年吗?恐怕到最后,只有你会留在公司加班 。那时候,你的耐心就会耗尽 。本文将教你一个窍门,帮助你只需3步就能解决这个问题!
操作方法:
1.打开Word,创建一个新的空白色Word文档,按Alt+F11打开VBA编辑器 。
2.然后将下面的代码复制并粘贴到窗口中 。单击顶部的绿色三角形按钮“运行子流程/用户表单(F5)”,运行代码 。
Sub Delete headers and footers in batches()'这段代码的作用是列出指定文件夹中所有选中WORD文件的完整路径名,dim my dialog为file dialog,Odoc为document,osec为section dim ofile为variant,My range为range on error resume next '定义一个文件夹选择对话框set My dialog = application . file dialog(msofiledialog file picker)With My dialog . filters . Clear '清除所有文件过滤器中的项目过滤器 。添加“所有Word文件”,“*” 。医生,* 。docx ",1 '添加过滤器的项目都是Word文件 。allow multiselect = true '允许多重选择,如果 。show =-1,然后对中的每个文件单击“ok” 。所选项目的循环设置oDoc = Word 。Documents.Open ( FileName:=oFile,Visible: = false)用于文档集my range = osec . headers(wdheaderfoot primary)的节中Odoc.sections循环中的每个osec 。' rangeyrange.delete '删除标头my range . paragraph format . borders(wdborderbotom)的内容 。line style = wdlinestyleone '段落下边框线set my range = osec . footers(wdheaderfooterprimary) 。'删除页脚中odoc.close true next end不带sub的内容 。
3.此时会弹出浏览对话框,选择要删除页眉页脚的Word文档,然后点击打开按钮 。
关闭所有窗口,再次打开刚刚处理过的Word文档,你会发现文档中所有的页眉页脚都被删除了!


    推荐阅读