今天小编收到一个任务,老板不知道从哪里得到一些文件(有好几百个,Word格式),但是这些文件的页眉和页脚上都有LOGO,于是乎老板就安排了我一个任务,把这些页眉也页脚去掉,
一看这么多,我就来气,这不是欺负我工资低嘛,完全是一个不需要任何技术含量的重复劳动,但是真要一个个的来删除,估计得删得我老眼昏花,四肢发麻……,虽然小编学识不渊博,但是也听过一个叫VBA的东东啊……;
于是乎,小编就开始Research起来,是的,中文可以翻译为研究,但是小编实际上是re-search,哈哈;于是乎就找到了下面的代码,不用调试,直接可用;
使用方法
1、随意新建一个Word文件,按Alt+F11,进入VBA编辑器
2、粘贴进去下面的代码
VBA编辑器
3、点击上方绿色按钮,运行即可
4、选择要删除页眉页脚的文件(可以批量选择),然后就等着耍吧
5、搞定;
6、假装继续手动删除页眉页脚,然后就可以在这里耍两天了
附代码如下:
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
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,请发送邮件至 55@qq.com 举报,一经查实,本站将立刻删除。转转请注明出处:https://www.szhjjp.com/n/36252.html