Word教程:word删除页眉页脚,批量操作,5秒搞定!

原副标题:Word讲义:word删掉塞雷县页脚,大批量操作方式,5秒搞掂!

点选相片1元热卖Excel、Word、PPT整套专业课程

在校场办公设备时,他们时常会处置各式各样Word文件格式,也协进会碰到多种类型的难题。就比如说:

李秉宏时,老板娘忽然交待你,将这份上层层叠叠即使几层层叠叠的策划书中的大部份塞雷县和页脚全数删掉,上班以后要是。

碰到这种的情形,吗要满身隐棘了吧……

咋办?总之绝大多数人都是关上文件格式,老老实实的原都全自动删掉。

就像这种……

左图中此类选用了前段符,把整本或每段落分分隔原则上增设了相同的塞雷县页脚,你若还在全自动删掉它,要删到Ferrette?更何况到最终回到子公司上工的灰鳍你了,从那时起,你的冷静也被打发完了吧!

责任编辑就教他们三招,再加3步就帮你化解那个难题!

操作方式方法:

1. 关上Word,增建一个盲点Word文件格式,按Alt+F11快捷方式,关上VBAGUI。

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文件格式,即可发现,文件格式中的大部份塞雷县页脚都全数删掉啦!

就是这么简单,搞掂!交给老板娘,准时上班!

好了,今天的分享就到此结束啦!有不懂的,可以加入他们的学习群交流。

关于网约车问题,添加 微信: agm473   备注:备注问题

本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 1304479036@qq.com 举报,一经查实,本站将立刻删除。
如若转载,请注明出处:https://www.didizcw.com/8498.html