原副标题: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文件格式,即可发现,文件格式中的大部份塞雷县页脚都全数删掉啦!
就是这么简单,搞掂!交给老板娘,准时上班!
好了,今天的分享就到此结束啦!有不懂的,可以加入他们的学习群交流。
全国网约车司机交流群,交流经验,添加 微信:gua561 备注:加群!
如若转载,请注明出处:https://www.wyczc.com/13628.html