添加页脚怎么取消，在实际工作中，我们时常需要添加页眉页脚，那如果不需要，该如何删除呢？怎样批量删除多个文档的页眉页脚呢？本期与大家分享相应的技巧。
1、删除单个文档的页眉页脚
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
删除页眉的方法：打开Word文档后，点击上方的“视图(V)”菜单——>选择“页眉和页脚(H)”——>进入页眉编辑状态，并弹出页眉工具菜单，全选中页眉内容（按下Ctrl+A全选）后，点击“Delete键”删除内容——>删除内容后，点。
On Error Resume Next
1、打开word文档。2、点击上面工具栏里面的“插入”按钮，打开“插入”功能，它集合了所有能够插入或者把之前插入的内容删除的功能，我们要取消的页眉和页脚也是在这个功能里。3、点击中间的“页眉”就会弹出关于页眉的设置的。
'定义一个文件夹选取对话框
With myDialog
取消步骤如下：1.打开word文档，新打开的word文档，里面没有任何内容，已经加入了页眉和页脚；2.点击上面工具栏里面的“插入”按钮，打开“插入”功能，它集合了所有能够插入或者把之前插入的内容删除的功能，要取消的页眉和。
.Filters.Clear '清除所有文件筛选器中的项目
.Filters.Add &34;，&34;，1 '增加筛选器的项目为所有Word文件
.AllowMultiSelect = True '允许多项选择
If .Show = -1 Then '确定
For Each oFile In .SelectedItems '在所有选取项目中循环
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 '删除页脚中的内容
步骤一：我们需要先进入页眉页脚，双击页码所在的区域就可以进入了，然后选定页码，回一格或者按删除键就可以删除了。步骤二：如果你双击不能进入页眉，可以通过视图菜单下的页眉页脚按键进入。步骤三：前面一种是针对普通word的。
Next
oDoc.Close True
Next
End If
1、首先点击顶部菜单栏中的“插入”选项。2、在菜单栏中点击“页眉页脚”选项。3、点击菜单栏中的“页脚”选项。4、在展开的页面底部点击“删除页脚”即可。
End With
End Sub
