首页 常识
怎么删除页眉所有内容（批量删除多个Word页眉页脚）
100次浏览 发布时间：2024-09-09 08:04:301、删除单个文档的页眉页脚
双击页眉处，进入编辑状态，然后选中文本内容按删除键，之后再点击开始——字体——清除所有格式清除页眉横线，最后关闭页眉和页脚即可。
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
点击运行，之后会跳出相应的对话框，然后选择要清除的文档打开即可批量删除页眉页脚。
相关文章：
- 百乐满(paloma) 燃气热水器服务号码-故障报修热线号码实时反馈全+境+到+达 04-21
- 蝉东指纹锁售后服务号码24小时实时反馈全+境+到+达 04-21
- 火王壁挂炉服务号码-故障报修热线号码实时反馈-今-日-汇-总 04-21
- 艾瑞科（ARCIO）壁挂炉全国统一服务热线-全国24小时服务中心实时反馈-今-日-更-新 04-21
- 美的（Midea）热水器全国各市售后服务热线号码实时反馈-今-日-汇-总 04-21
- DELOCK智能锁售后维修号码-人工售后号码实时反馈-今-日-汇-总 04-21
- 瑞美壁挂炉400服务号码全国售后的热线实时反馈-今-日-更-新 04-21
- 标努壁挂炉售后服务中心号码售后服务网点实时反馈-今-日-更-新 04-21
- 热门文章