页眉页脚怎么全部删除 excel表格删除页眉页脚
今天，边肖接到了一个任务。老板不知道从哪里弄来了一些文件(有几百个，Word格式的)，但是这些文件的页眉页脚都有LOGO，于是老板给我安排了一个任务，把这些页眉页脚去掉。看到这么多
今天，边肖接到了一个任务。老板不知道从哪里弄来了一些文件(有几百个，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(wdHeaderFooterPrimary).RangemyRange.Delete '删除页眉中的内容myRange.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone '段落下边框线Set myRange = oSec.Footers(wdHeaderFooterPrimary).RangemyRange.Delete '删除页脚中的内容NextoDoc.Close TrueNextEnd IfEnd WithEnd Sub
