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文档,即可发现,文档中的所有页眉页脚都全部删除啦!
就是这么简单,搞定!交给老板,准时下班!
图片声明:本站部分配图来自人工智能系统AI生成,觅知网授权图片,PxHere摄影无版权图库。本站只作为美观性配图使用,无任何非法侵犯第三方意图,一切解释权归图片著作权方,本站不承担任何责任。如有恶意碰瓷者,必当奉陪到底严惩不贷!
内容声明:本文中引用的各种信息及资料(包括但不限于文字、数据、图表及超链接等)均来源于该信息及资料的相关主体(包括但不限于公司、媒体、协会等机构)的官方网站或公开发表的信息。部分内容参考包括:(百度百科,百度知道,头条百科,中国民法典,刑法,牛津词典,新华词典,汉语词典,国家院校,科普平台)等数据,内容仅供参考使用,不准确地方联系删除处理!本站为非盈利性质站点,发布内容不收取任何费用也不接任何广告!
免责声明:我们致力于保护作者版权,注重分享,被刊用文章因无法核实真实出处,未能及时与作者取得联系,或有版权异议的,请联系管理员,我们会立即处理,本文部分文字与图片资源来自于网络,部分文章是来自自研大数据AI进行生成,内容摘自(百度百科,百度知道,头条百科,中国民法典,刑法,牛津词典,新华词典,汉语词典,国家院校,科普平台)等数据,内容仅供学习参考,不准确地方联系删除处理!的,若有来源标注错误或侵犯了您的合法权益,请立即通知我们,情况属实,我们会第一时间予以删除,并同时向您表示歉意,谢谢!