小伙伴们大家好,今天杨萧千给大家分析下关于word如何删除页眉页脚的分节符,超详细流程分解介绍的事情,还有关于页眉,文档,文件,批量,想过等等其他相关干货,思路很重要,希望我整理分享的这篇文章对你能有一定的帮助!
一篇长文档,假设有1000页,大家是否想过如何快速批量删除这个文档中的所有页眉页脚?如果有想过,那你会用什么方法删除它呢?带着这个问题,我们挖掘到了一个几乎不为人知的Word页眉页脚批量处理技巧,一起来看看吧!
在职场办公时,我们经常会处理各种Word文档,也总会遇到各种类型的问题。就比如:快下班时,老板突然交代你,将一份上百页甚至几百页的策划书中的所有页眉和页脚全部删除,下班之前就要。
遇到这样的情况,真的要满头黑线了吧……
怎么办?想必大多数人都是打开文档,认认真真的挨个手动删除。
就像这样……
上图中这类采用了分节符,把每页或每章节分隔开单独设置了不同的页眉页脚,你若还在手动删除它们,要删到猴年马月?只怕到最后留在公司加班的只剩你了,那时,你的耐心也被消磨完了吧!本文就教大家一招,只用3步就帮你解决这个问题!
操作方法:
1. 打开Word,新建一个空白Word文档,按Alt F11组合键,打开VBA编辑器。
2. 然后将下面的代码复制粘贴到窗口中。点击上方的“运行子过程/用户窗体(F5)”绿色三角形按钮,运行代码。
Sub 批量删除页眉页脚()此代码功能为列出指定文件夹中所有选取的WORD文件全路径名Dim myDialog As FileDialog, oDoc As Document, oSec As SectionDim oFile As Variant, myRange As RangeOn Error Resume Next定义一个文件夹选取对话框Set myDialog = Application.FileDialog(msoFileDialogFilePicker)With myDialog .Filters.Clear 清除所有文件筛选器中的项目 .Filters.Add 所有Word文件, *.doc,*.docx, 1 增加筛选器的项目为所有Word文件 .AllowMultiSelect = True 允许多项选择If .Show = -1 Then 确定For Each oFile In .SelectedItems 在所有选取项目中循环Set oDoc = Word.Documents.Open(FileName:=oFile, Visible:=False)For Each oSec In oDoc.Sections 文档的节中循环Set myRange = oSec.Headers(wdHeaderFooterPrimary).RangemyRange.Delete 删除页眉中的内容myRange.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone 段落下边框线Set myRange = oSec.Footers(wdHeaderFooterPrimary).RangemyRange.Delete 删除页脚中的内容NextoDoc.Close TrueNextEnd IfEnd WithEnd Sub
3. 此时,将弹出“浏览”对话框,选择要删除页眉页脚的Word文档,然后点击“打开”按钮。
关闭所有窗口,再次打开刚刚被处理的Word文档,即可发现,文档中的所有页眉页脚都全部删除啦!
好了,这上面就是整篇文章的内容了,不管如何,只要能帮助到大家,证明这篇文章整理的就有价值了哈,认真仔细阅读完word如何删除页眉页脚的分节符:必看超详细流程分解介绍文章,对自己感觉有帮助,记得点个赞哦!
本文发布者:侠大大,不代表益智储立场,转载请注明出处:https://www.yizhichu.com/p/10777.html
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 jubao226688#126.com 举报,一经查实,本站将立刻删除。