哈喽，小伙伴们大家好，今天说的这篇文章word如何删除页眉页脚的分节符：超详细流程分解介绍，以及关于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文档，即可发现，文档中的所有页眉页脚都全部删除啦！,好了这篇文章就到这里吧，不管如何，能帮到你我就很开心了，已看完，但没懂？还是不明白？建议留言讨论。浏览更多页面学习更多知识哦！, 版权声明：非特殊说明，本文版权归原作者所有，如有侵权请联系我们，即刻处理。谢谢！,