5 秒去除100 页Word页眉页脚
时间:2023-12-03 18:26:38
在职场办公时,我们经常会处理各种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文档,即可发现,文档中的所有页眉页脚都全部删除啦!
就是这么简单,搞定!交给老板,准时下班!
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
2021年16英寸MacBook Pro与戴尔XPS 17哪个值得买?
![](https://img.aspxhome.com/file/2023/9/a203689_0s.jpeg)
XP系统设置如何禁止打开“网络连接”图文教程
![](https://img.aspxhome.com/file/2023/28/a244519_0s.jpg)
QQ如何设置截图快捷键?
![](https://img.aspxhome.com/file/2023/4/a303342_0s.png)
MAC OS X替换Finder字体以及恢复默认值的方法
![](https://img.aspxhome.com/file/2023/8/a215148_0s.jpg)
剪映网页版在哪?剪映网页版入口地址分享
![](https://img.aspxhome.com/file/2023/7/a327654_0s.png)
win11打开自带fps方法教程
![](https://img.aspxhome.com/file/2023/30/a265024_0s.jpg)
Windows10在安全模式下怎么创建新账户?
![](https://img.aspxhome.com/file/2023/26/a225770_0s.jpg)
Windows 10最新版系统还隐藏了神马秘密?
![](https://img.aspxhome.com/file/2023/4/a307966_0s.jpg)
微软重发俩补丁:人人敬而远之
![](https://img.aspxhome.com/file/2023/4/a302883_0s.jpg)
Win10 Mobile即将推送预览版或为10586.17
![](https://img.aspxhome.com/file/2023/28/a246259_0s.jpg)
迅捷视频转换器怎么完成视频格式转换?
![](https://img.aspxhome.com/file/2023/6/a324629_0s.png)
snkrs上付款总显示出错怎么办-snkrs上付款总显示出错解决方法
![](https://img.aspxhome.com/file/2023/2/a289454_0s.jpg)
win8通过绑定电脑MAC地址来应对ARP袭击
取消每次启动Office2007时提示安装配置问题的解决方法
![](https://img.aspxhome.com/file/2023/29/a258402_0s.jpg)
如何为word文档自动插入页码
![](https://img.aspxhome.com/file/2023/6/32756_0s.jpg)
U盘显示需要格式化才能用怎么解决?
![](https://img.aspxhome.com/file/2023/6/a321816_0s.png)
excel不自动填充公式的设置方法
WPS如何实现文字心随你动
WPS安全技巧—-加密文档如何防止查看与修改
Excel如何跨列居中显示?
![](https://img.aspxhome.com/file/2023/0/55190_0s.gif)