批量删除Word页眉页脚

批量删除Word页眉页脚
新创建一个Word文档
点开文档，点视图，在宏名中输入"Application"，最后点击"创建"按钮

复制下列字码粘贴进去
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
关闭页面。再点开，点宏，选择"批量删除Word页眉页脚",最后点击“运行”，再在一个文件夹内选择成批文档，全选，点确定。运行完后，再接着下一个。