批量删除多个word文档页眉新方法

有好几百个Word格式文档,但是这些文件的页眉和页脚上都有LOGO,哪怕你手速足够快,几百个word也足够你干一两天的。这是个非常简便批量删除多个Word文件的页眉页脚的方法。

1、随意新建一个Word文件,按Alt+F11,进入VBA编辑器

2、粘贴进去下面的代码 (一个字都不要漏)

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、点击上方绿色按钮,运行即可

4、选择要删除页眉页脚的文件(可以批量选择),然后等它玩就OK了!

给TA买糖
共{{data.count}}人
人已赞赏
加入VIP

超可爱黄色打伞小女孩

2021-8-18 21:44:07

加入VIP

【拼多多入门运营教程】商家新品上架快速破零销量技巧

2019-10-23 22:39:44

⚠️
一天知识社收集的资源均来自于网络,仅供私下交流学习之用,任何使用本平台收集的资源产生的后果,本平台及本人不对此进行负责。若您的权利被侵害,请联系站长 QQ: 870188154或者 留言反馈 ,我们将尽快处理。
Notice: When you of the legal rights be violate, please stir to Mail: 870188154@qq.com
0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索