今天，边肖接到了一个任务。老板不知道从哪里弄来了一些文件(有几百个，Word格式的)，但是这些文件的页眉页脚都有LOGO，于是老板给我安排了一个任务，把这些页眉页脚去掉。

看到这么多，我就生气了。这不是为了我工资低欺负我。完全是一个不需要什么技术含量的重复性工作，但是如果真的要一个一个删除的话，估计眼力昏花，四肢麻木.........................................................................................................

于是乎，边肖开始研究。没错，中文可以翻译成研究，但边肖其实是重搜索，哈哈；于是我找到了下面这段代码，不用调试就可以直接使用；

用法

1.随意创建一个新的Word文件，按Alt+F11进入VBA编辑器。

2、粘贴进去下面的代码

2.粘贴以下代码

VBA编辑

3.点击上面的绿色按钮进行跑步。

4.选择要删除页眉页脚的文件(可以批量选择)，然后等待播放。

5.搞定它；

6。假装继续手动删除页眉页脚，然后可以在这里玩两天

所附代码如下:

Sub 批量删除页眉页脚()'此代码功能为列出指定文件夹中所有选取的WORD文件全路径名Dim myDialog As FileDialog, oDoc As Document, oSec As SectionDim oFile As Variant, myRange As RangeOn 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(wdHeaderFooterPri***ry).RangemyRange.Delete '删除页眉中的内容myRange.ParagraphFor***t.Borders(wdBorderBottom).LineStyle = wdLineStyleNone '段落下边框线Set myRange = oSec.Footers(wdHeaderFooterPri***ry).RangemyRange.Delete '删除页脚中的内容NextoDoc.Close TrueNextEnd IfEnd WithEnd Sub

本文来自铁石心肠投稿，不代表舒华文档立场，如若转载，请注明出处：https://www.chinashuhua.cn/24/504106.html