当前位置:首页 > 办公 > WPS教程 > 正文内容

wps office页眉页脚怎么删除?

酷网3天前WPS教程6

wps office页眉页脚怎么删除?在职场办公时,我们经常会处理各种Word文档,也总会遇到各种类型的问题。就比如:

快下班时,老板突然交代你,将一份上百页甚至几百页的策划书中的所有页眉和页脚全部删除,下班之前就要。

遇到这样的情况,真的要满头黑线了吧……

怎么办?想必大多数人都是打开文档,认认真真的挨个手动删除。就像这样……

上图中这类采用了分节符,把每页或每章节分隔开单独设置了不同的页眉页脚,你若还在手动删除它们,要删到猴年马月?只怕到最后留在公司加班的只剩你了,那时,你的耐心也被消磨完了吧!本文就教大家一招,只用3步就帮你解决这个问题!

操作方法:

1. 打开Word,新建一个空白Word文档,按Alt+F11组合键,打开VBA编辑器。

2. 然后将下面的代码复制粘贴到窗口中。点击上方的“运行子过程/用户窗体(F5)”绿色三角形按钮,运行代码。

Sub 批量删除页眉页脚()

‘此代码功能为列出指定文件夹中所有选取的WORD文件全路径名

Dim myDialog As FileDialog, oDoc As Document, 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

3. 此时,将弹出“浏览”对话框,选择要删除页眉页脚的Word文档,然后点击“打开”按钮。

 

关闭所有窗口,再次打开刚刚被处理的Word文档,即可发现,文档中的所有页眉页脚都全部删除啦!

就是这么简单,搞定!交给老板,准时下班!

扫描二维码推送至手机访问。

版权声明:本文章来源于互联网,由八酷网收集发布,如需转载请注明出处。

本文链接:https://www.i8ku.com/2022/44422.html

分享给朋友:

相关文章

Word对话框选项卡怎么设置

Word对话框选项卡怎么设置

使用“页面设置”对话框可以更改文档中的边距,更改纸张尺寸以及更改文档的布局。调用页面设置对话框后,您会看到三个选项卡:边距,纸张和布局。在这些选项卡中工作时,可以将更改应用于“整个文档”,“此要点”或“本节”。 Word...

OFFSET函数怎么制作滚动条

OFFSET函数怎么制作滚动条

OFFSET函数怎么制作滚动条? 今天有朋友在学习了利用OFFSET制作动态图表的内容,留言:能不能制作制作一个动态图表,想看几个月的销量就看几个月销量? 当然能了! 今天就来一用OFFSET函数制作带滚动条的动态图表,...

Word 2013中怎么创建选项卡?

Word 2013中怎么创建选项卡?在Word 2013中,单击“文件”选项卡将打开“文件”菜单,也称为Backstage视图。后台视图提供对与您正在使用的数据文件有关的命令的访问权限,例如保存,打开,打印,邮寄和检查其...

Word 2007帮助功能怎么用?

Word 2007帮助功能怎么用?

Word 2007帮助功能怎么用?从Word 2007获得帮助的最简单方法是按F1键。关于F1键的最酷的部分是,如果您在执行某个陌生的对话框或任务窗格中的某些晦涩的任务时按下它,Word会传唤该特定问题的帮助,告诉您如何...

WPS中怎么使用格式刷快速排版?WPS中使用格式刷快速排版的方法

WPS中怎么使用格式刷快速排版?WPS中使用格式刷快速排版的方法

  WPS是一款非常好用的办公软件,不仅仅功能强大而且操作方便,你知道WPS中怎么使用格式刷快速排版的吗?接下来我们一起往下看看WPS中使用格式刷快速排版的方法吧。   方法步...

excel怎么算除法

excel怎么算除法

excel怎么算除法? 方法 1、在Excel中输入数据 在你的计算机上打开微软Excel程序。 选择一个已保存的电子表格或新建一个新的电子表格。 点击上方的”文件”菜单并对电子表格进行命名保存...

发表评论

访客

◎欢迎参与讨论,请在这里发表您的看法和观点。