word2010批量删除页眉页脚VBA

word2010批量删除页眉页脚VBA Sub 批量删除文件夹里面所有Word文档的页眉页脚() Dim Fdlg As FileDialog, Fl Dim Fso, Fld, Fln, Wk Set Fdlg = Application.FileDialog(msoFileDialogFolderPicker) With Fdlg .Title = "选择要处理目标文件夹" & "——(删除里面所有Word文档的页眉页脚)" -1 Then If .Show = MyPath = .SelectedItems(1) Else Exit Sub End If End With Set Fso = CreateObject("Scripting.FileSystemObject") Set Fld = Fso.GetFolder(MyPath) Set Fln = Fld.Files For Each Wk In Fln Set myDoc = Documents.Open(FileName:=Fld & "\" & Wk.Name) If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.WholeStory Selection.Delete Unit:=wdCharacter, Count:=1 Selection.WholeStory With Selection.ParagraphFormat .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone With .Borders .DistanceFromTop = 1 .DistanceFromLeft = 4 .DistanceFromBottom = 1 .DistanceFromRight = 4 .Shadow = False End With End With With Options .DefaultBorderLineStyle = wdLineStyleSingle .DefaultBorderLineWidth = wdLineWidth075pt .DefaultBorderColor = wdColorAutomatic End With If Selection.HeaderFooter.IsHeader = True Then ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Else ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader End If Selection.WholeStory Selection.Delete Unit:=wdCharacter, Count:=1 ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _ wdAlignPageNumberRight, FirstPage:=True ' 以上可以换成是你自己录制的宏 ' C公共部分的代码 Application.DisplayAlerts = False '强制执行“是” 'ActiveDocument.Saved = True'强制执行“否” ActiveDocument.Close '退出 Next End Sub