页眉页脚怎么删除，wps如何删除页眉页脚（批量删除多个Word页眉页脚）

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

• 内容导航：
• 1、页眉页脚怎么删除：wps如何删除页眉页脚
• 2、有办法了！批量删除多个Word页眉页脚

1、页眉页脚怎么删除：wps如何删除页眉页脚

　　可以在wps的插入选项里删除页眉页脚。

　　1、打开电脑上需要删除页眉页脚的wps文档。

　　2、点击上方菜单栏中的插入选项，在工具栏中单击页眉页脚。

　　3、删除页眉页脚中的内容，点击右上方的关闭按钮即可。

　　4、根据以上步骤即可在wps中删除页眉页脚。

2、有办法了！批量删除多个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

本文关键词：wps如何删除页眉页脚 全篇，wps如何删除页眉页脚的虚线，怎么删除页眉页脚格式，怎么一次性删除所有页眉页脚，word怎么取消页眉页脚。这就是关于《页眉页脚怎么删除，wps如何删除页眉页脚（批量删除多个Word页眉页脚）》的所有内容，希望对您能有所帮助！

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