如何去掉页眉页脚格式(文档取消页眉页脚的步骤)

在实际工作中,我们时常需要添加页眉页脚,那如果不需要,该如何删除呢?怎样批量删除多个文档的页眉页脚呢?本期Word妹与大家分享相应的技巧。

1、删除单个文档的页眉页脚

如何去掉页眉页脚格式(文档取消页眉页脚的步骤)

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

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

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

这里需要借用VBA来实现。

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

以上就是今天分享的删除页眉页脚的技巧,你会了吗?若有什么问题,欢迎在下方留言。

技巧推荐

文本框书签批注水印分栏脚注题注目录合并修订表格图片项目符号编号拼音指南带圈字符页码邮件合并桌签……

发表评论

登录后才能评论