怎么在文件夹中删除多余的页眉

1. word怎么删除页眉页

1、删除单个文档的页眉页脚
双击页眉处，进入编辑状态，然后选中文本内容按删除键，之后再点击开始——字体——清除所有格式清除页眉横线，最后关闭页眉和页脚即可。
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
点击运行，之后会跳出相应的对话框，然后选择要清除的文档打开即可批量删除页眉页脚。

2. 如何批量删除一个文件夹下所有Word文件的页眉和页脚麻烦详细说明，在线等

如果页眉页脚是相互链接的，只要删除任意一页的，其它页面也就一起删除了，删除的方法地，双击页眉或页脚，将框中的内容删除即可。

3. WPS文档怎么批量或者全部删除掉文件的页眉和页脚

批量删除word文档的页眉页脚，可以用下面的vba程序来实现，需要注意的是，在批量操作前，先做好备份。
Sub 批量删除文件夹里面所有Word文档的页眉页脚()
Dim Fdlg As FileDialog, Fl
Dim Fso, Fld, Fln, Wk
Set Fdlg = Application.FileDialog(msoFileDialogFolderPicker)
With Fdlg
.Title = "选择要处理目标文件夹" & "——(删除里面所有Word文档的页眉页脚)"
If .Show = -1 Then
MyPath = .SelectedItems(1)
Else
Exit Sub
End If
End With
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Fld = Fso.GetFolder(MyPath)
Set Fln = Fld.Files
For Each Wk In Fln
Set myDoc = Documents.Open(FileName:=Fld & "\" & Wk.Name)
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.WholeStory
With Selection.ParagraphFormat
.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
.Borders(wdBorderRight).LineStyle = wdLineStyleNone
.Borders(wdBorderTop).LineStyle = wdLineStyleNone
.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
With .Borders
.DistanceFromTop = 1
.DistanceFromLeft = 4
.DistanceFromBottom = 1
.DistanceFromRight = 4
.Shadow = False
End With
End With
With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth075pt
.DefaultBorderColor = wdColorAutomatic
End With
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
wdAlignPageNumberRight, FirstPage:=True
' 以上可以换成是你自己录制的宏
' C公共部分的代码
Application.DisplayAlerts = False '强制执行“是”
'ActiveDocument.Saved = True'强制执行“否”
ActiveDocument.Close '退出
Next

End Sub

4. 如何彻底删除页眉

彻底删除页眉的具体步骤如下：

我们需要准备的材料分别是：电脑、word文档。

1、首先我们打开需要编辑的word文档，点击打开插入中的“页眉”下面的倒三角形。

5. 如何批量修改多个word的图片页眉页脚，或者删除

批量修改或删除word含图片的页眉页脚的方法如下：

1、通过桌面快捷方式或搜索来打开word文档。

6. 如何批量删除上百个word文档的页眉页脚

批量删除word文档的页眉页脚，可以用下面的vba程序来实现，需要注意的是，在批量操作前，先做好备份。
Sub 批量删除文件夹里面所有Word文档的页眉页脚()
Dim Fdlg As FileDialog, Fl
Dim Fso, Fld, Fln, Wk
Set Fdlg = Application.FileDialog(msoFileDialogFolderPicker)
With Fdlg
.Title = "选择要处理目标文件夹" & "——(删除里面所有Word文档的页眉页脚)"
If .Show = -1 Then
MyPath = .SelectedItems(1)
Else
Exit Sub
End If
End With
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Fld = Fso.GetFolder(MyPath)
Set Fln = Fld.Files
For Each Wk In Fln
Set myDoc = Documents.Open(FileName:=Fld & "\" & Wk.Name)
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.WholeStory
With Selection.ParagraphFormat
.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
.Borders(wdBorderRight).LineStyle = wdLineStyleNone
.Borders(wdBorderTop).LineStyle = wdLineStyleNone
.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
With .Borders
.DistanceFromTop = 1
.DistanceFromLeft = 4
.DistanceFromBottom = 1
.DistanceFromRight = 4
.Shadow = False
End With
End With
With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth075pt
.DefaultBorderColor = wdColorAutomatic
End With
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
wdAlignPageNumberRight, FirstPage:=True
' 以上可以换成是你自己录制的宏
' C公共部分的代码
Application.DisplayAlerts = False '强制执行“是”
'ActiveDocument.Saved = True'强制执行“否”
ActiveDocument.Close '退出
Next

End Sub

7. 如何删除Word新建文档中的页眉页脚

1、打开一个Word文档，可以看到里面具有页眉和页脚；

2、在插入中找到“页眉”和“页脚”两个图标；

8. 怎么删掉页眉

鼠标双击要删除页眉的位置，激活页眉编辑，然后再点击菜单中的插入，单击页眉，再选择删除页眉，最后按Esc键退出即可，页眉就被删除了

9. word中目录的页眉如何去掉详解。

在不进行分节的话word是默认将所有的页都视为一节的，而在这一节中的所有页面的页眉、页

脚，页脚，背景等都是相同的。如果想要使某些页的页眉与其他页不相同，或者取消页眉，那

么只需要将想要去掉页眉的页与其他页进行分节就可以了，具体操作如下：

1、首先将鼠标光标定在目录页的最后一个字符后面。

10. 怎样去除所有页眉页脚

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

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

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

点击运行，之后会跳出相应的对话框，然后选择要清除的文档打开即可批量删除页眉页脚。

313阅读
搜索
word中批量删除回车
一键去掉word页眉横线
批量删除多页内容word
页眉横线怎么彻底删除
word怎么把页眉删掉
批量删除页眉页脚