怎么在word中批量删除页眉和页脚

2023-08-19 10:52:32 来源:互联网

在日常工作中,我们有时会碰到一大堆文件需要批量删除页眉与页脚,如果一个个打开文件手工删除的话,会很耗时间精力,下面小编就教你怎么在word中批量删除页眉和页脚,希望对你有帮助!

word中批量删除页眉和页脚的步骤

首先,我先制作一个测试文件夹,里面包含几个word文档,都有页眉--百度经验这四个字,当然其他的文字也行,只是一个测试;


(资料图)

word中批量删除页眉和页脚的步骤图1

下面我们需要打开宏,03版的宏不需要去开启开发工具,只需要点击菜单栏中的工具-宏-宏;

word中批量删除页眉和页脚的步骤图2

进入宏对话框,我们可以在宏名随便输入英文字母,在右侧点击一下创建;

word中批量删除页眉和页脚的步骤图3

接着,进入了宏代码编写框,将下面代码复制进来:

Sub 批量删除页眉页脚()

Application.ScreenUpdating = False

Dim MyPath As String, i As Integer, myDoc As Document

With Application.FileDialog(msoFileDialogFolderPicker)

.Title = "选择要处理目标文件夹" & "——(删除里面所有Word文档的页眉页脚)"

If .Show = -1 Then

MyPath = .SelectedItems(1)

Else

Exit Sub

End If

End With

With Application.FileSearch

.LookIn = MyPath

.FileType = msoFileTypeWordDocuments

If .Execute > 0 Then

For i = 1 To .FoundFiles.Count

Set myDoc = Documents.Open(FileName:=.FoundFiles(i))

" B可以替换的宏

" 以下是处理格式所录制的宏,可根据所需录制

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 If

End With

Application.ScreenUpdating = True

MsgBox "所选Word文档的页眉页脚已删除!!!", 64, "☆★处理完毕★☆"

End Sub

word中批量删除页眉和页脚的步骤图4

现在,我们关闭窗口,重新回到word界面,按下宏快捷键,Alt+F8,看到刚才的宏名,点击运行;

word中批量删除页眉和页脚的步骤图5

接着软件会让我们选择要批量处理的文件夹,选中之,然后稍等片刻,即会弹出--所选Word文档的页眉页脚已删除。

word中批量删除页眉和页脚的步骤图6

删除word中页眉和页脚方法一

步骤一:打开一个word文件,发现它的页眉不是我们所要,如下图所示。

步骤二:用鼠标双击页眉区域,使页眉成为焦点事件,如下图所示。

步骤三:用鼠标选择“页面布局”,在功能区找到“页面边框”,如下图所示。

步骤四:在边框对话框内,我们选择“边框”,在“应用于”输入口选择“段落”。点击确定。

步骤五:点击确定后,我们可以看到页眉横线已经消失,然后删除页眉中的文字,就完成了页眉的删除工作。

删除word中页眉和页脚方法二

步骤一:鼠标左键双击激活页眉和页脚,删除全部文字,如图所示

步骤一:再点击“关闭页眉和页脚”,如图所示

步骤二:如果出现页眉横线无法删除的,就左键双击激活页眉,按键盘删除键“del”,再点“击关闭页眉和页脚”即可。


猜你喜欢:

1.怎样删除WORD文档首页页眉

2.Word中2007版进行设置除首页外页面都有页眉的方法

3.在word中怎样去掉首页页眉

4.word中如何删除整页的两种方法

5.word页眉和页脚如何删除

6.word中进行编辑独立单个页眉页脚的操作方法

关键词: 页眉 步骤 批量
分享:
x 广告
x 广告

Copyright   2015-2022 魔方网版权所有  备案号:京ICP备2022018928号-48   联系邮箱:315 54 11 85 @ qq.com