RSS订阅了解武汉 解读武汉
你现在的位置:网站首页 / 黑科技 / 正文内容

批量删除多个Word文件的页眉页脚的方法

7710 黑科技 | 2020-12-26 22:06:31

1、随意新建一个Word文件,视图-宏-查看宏,宏名:Application

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

image.png

3、关闭,重新再次打开宏,运行即可,选择要删除页眉页脚的文件(可以批量选择)

上一篇:微信社群管理工具WeTool Pro Setup4.0.0下载

下一篇:批量修改文件名 3.9.1

猜你喜欢

额 本文暂时没人评论 来添加一个吧

发表评论

必填

选填

选填

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

通知公告
    免责声明:本站所提供的信息,只供参考之用!
微信小程序


帐号矩阵

        


       


        


       61748452a23ee0eaa076b42b38db8b94.png.icon.h256.jpg


通知公告

免责声明:本站所提供的信息,只供参考之用!