爱刨根知识网

  1. 首页 > 经验知识 > >

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

生活经验生活百科

一篇长文档 ， 假定有1000页 ， 大伙儿是不是想过怎么才能批量删除这一文档中的全部页眉页脚？如果有想过 ， 那么你会用什么方法删掉它呢？带上这个问题 ， 大家发掘到一个基本上鲜为人知的Word页眉页脚批量处理方法 ， 一起来瞧瞧吧！
在职人员场办公室时 ， 大家常常会解决各种各样Word文档 ， 也总是会碰到多种类型的难题 。就例如：早点回来时 ， 老总忽然交待你 ， 将一份上百叶乃至好几百页的策划方案中的全部页眉和页脚全删 ， 下班了以前就需要 。

碰到那样的状况 ， 确实要全头黑条了吧……
该怎么办？想来大部分人全是开启文档 ， 一丝不苟的逐个手动式删掉 。

如同那样……

图中中这种选用了分节符 ， 把每张或每章节目录分分隔独立设定了不一样的页眉页脚 ， 倘若仍在手动式删掉他们 ， 要删到猪年马月？惟恐到最终留到企业加班加点的只剩你呢 ， 那时候 ， 你的细心也被消遣完后吧！文中就教大伙儿一招 ， 仅用3步就帮你处理这个问题！

操作步骤：
1. 开启Word ， 新创建一个空缺Word文档 ， 按Alt+F11键盘快捷键 ， 开启VBA在线编辑器 。
2. 随后将下边的编码拷贝到对话框中 。点一下上边的“运作子全过程/客户文本框（F5）”翠绿色三角形按键 ， 运行代码 。
Sub 批量删除页眉页脚()
‘此编码作用为列举特定文件夹名称中全部选择的WORD文档全路径名
Dim myDialog As FileDialog, oDoc As Document, oSec As Section
Dim oFile As Variant, myRange As Range
On 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).Range
myRange.Delete ‘删除页眉中的內容
myRange.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone ‘段落下来边框线
Set myRange = oSec.Footers(wdHeaderFooterPrimary).Range
myRange.Delete ‘删除页脚中的內容
Next
oDoc.Close True
Next
End If
End With
End Sub
【word如何删除页眉页脚的分节符，超详细流程分解介绍】3. 这时 ， 将弹出来“访问 ”提示框 ， 挑选要删掉页眉页脚的Word文档 ， 随后点一下“开启”按键 。
?


关掉全部对话框 ， 再度开启刚被解决的Word文档 ， 就可以发觉 ， 文档中的全部页眉页脚都全删啦！

    推荐阅读


    上一篇：山东省车用乙醇汽油推广使用办法

    下一篇：支付宝如何查看年龄，支付宝年龄怎么查看