word如何一次性删除所有页眉页脚，批量删除多个Word页眉页脚

关于【word如何一次性删除所有页眉页脚】，今天小编给您分享一下，如果对您有所帮助别忘了关注本站哦。

PS：想了解更多删除页眉横线的删除方法，可以查看《Word文档中间的横线，怎么删除不了？》。

2、删除多个文档的页眉页脚

如何批量删除上百个Word文档的页眉页脚呢？

这里需要借用VBA来实现。

新建一个空白文档，点击开发工具——Visual Basic，在打开的界面中点击插入——模块，然后复制以下代码：

Sub 批量删除页眉页脚()

'此代码功能为列出指定文件夹中所有选取的WORD文件全路径名

Dim myDialog As FileDialog, oDoc AsDocument, 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怎么全部删除页眉页脚，怎样一键删除所有页眉页脚，word如何一次性删除所有页眉页脚的内容，word批量删除页眉页脚里内容。这就是关于《word如何一次性删除所有页眉页脚，批量删除多个Word页眉页脚》的所有内容，希望对您能有所帮助！

本文链接：https://bk.89qw.com/a-825702