怎么在word中批量删除页眉和页脚
在日常工作中,我们有时会碰到一大堆文件需要批量删除页眉与页脚,如果一个个打开文件手工删除的话,会很耗时间精力,下面小编就教你怎么在word中批量删除页眉和页脚.
word中批量删除页眉和页脚的步骤:
首先,我先制作一个测试文件夹,里面包含几个word文档,都有页眉--百度经验这四个字,当然其他的文字也行,只是一个测试;
下面我们需要打开宏,03版的宏不需要去开启开发工具,只需要点击菜单栏中的工具-宏-宏;
进入宏对话框,我们可以在宏名随便输入英文字母,在右侧点击一下创建;
接着,进入了宏代码编写框,将下面代码复制进来:
Sub批量删除页眉页脚()
Application.ScreenUpdating=False
DimMyPathAsString,iAsInteger,myDocAsDocument
WithApplication.FileDialog(msoFileDialogFolderPicker)
.Title="选择要处理目标文件夹"&"——(删除里面所有Word文档的页眉页脚)"
If.Show=-1Then
MyPath=.SelectedItems(1)
Else
ExitSub
EndIf
EndWith
WithApplication.FileSearch
.LookIn=MyPath
.FileType=msoFileTypeWordDocuments
If.Execute>0Then
Fori=1To.FoundFiles.Count
SetmyDoc=Documents.Open(FileName:=.FoundFiles(i))
''B可以替换的宏
''以下是处理格式所录制的宏,可根据所需录制
IfActiveWindow.View.SplitSpecial<>wdPaneNoneThen
ActiveWindow.Panes(2).Close
EndIf
IfActiveWindow.ActivePane.View.Type=wdNormalViewOrActiveWindow._
ActivePane.View.Type=wdOutlineViewThen
ActiveWindow.ActivePane.View.Type=wdPrintView
EndIf
ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageHeader
Selection.WholeStory
Selection.DeleteUnit:=wdCharacter,Count:=1
Selection.WholeStory
WithSelection.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
EndWith
EndWith
WithOptions
.DefaultBorderLineStyle=wdLineStyleSingle
.DefaultBorderLineWidth=wdLineWidth075pt
.DefaultBorderColor=wdColorAutomatic
EndWith
IfSelection.HeaderFooter.IsHeader=TrueThen
ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageHeader
EndIf
Selection.WholeStory
Selection.DeleteUnit:=wdCharacter,Count:=1
ActiveWindow.ActivePane.View.SeekView=wdSeekMainDocument
Selection.Sections(1).Footers(1).PageNumbers.AddPageNumberAlignment:=_
wdAlignPageNumberRight,FirstPage:=True
''以上可以换成是你自己录制的宏
''C公共部分的代码
Application.DisplayAlerts=False''强制执行“是”
''ActiveDocument.Saved=True''强制执行“否”
ActiveDocument.Close''退出
Next
EndIf
EndWith
Application.ScreenUpdating=True
MsgBox"所选Word文档的页眉页脚已删除!!!",64,"处理完毕"
EndSub
现在,我们关闭窗口,重新回到word界面,按下宏快捷键,Alt+F8,看到刚才的宏名,点击运行;
接着软件会让我们选择要批量处理的文件夹,选中之,然后稍等片刻,即会弹出--所选Word文档的页眉页脚已删除。
|
|