利用宏批量删除多个Word页眉页脚

《利用宏批量删除多个Word页眉页脚》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、利用宏批量删除多个Word页眉页脚有许多人刚接触WORD的新手，常常会遇到的问题就是怎样删除页眉页脚，当然一个Word里面删除页眉页脚不难，但有几百多个Word里面都有页眉页脚要你删除，那就难到不少人了，下面将针对这一问题，看看我是怎么利用宏批量删除多个Word页眉页脚，我献丑了工具/原料·运行环境WinXP/Vista/Win7/Win8·Word2003方法/步骤1.假如我手上有500个word文档需要删除页眉页脚2.先把需要删除页眉页脚的500个word文档放在一个文件夹下，然后打开其中一个文档1.在打开的文档中，选择在“工具”菜单中选择“宏”--“宏”2.随后

2、弹出“宏”对话框，在宏名中输入"Application"，最后点击"创建"按钮1.随后弹出“Microsoftvisualbasic”设计，在编辑处输入如下代码：Sub批量删除Word页眉页脚() Application.ScreenUpdating=False DimMyPathAsString,iAsInteger,myDocAsDocument WithApplication.FileDialog(msoFileDialogFolderPicker)  .Title="选择要处理目标文件夹"&"——(删除里面所有Word文档的页眉页脚)"  If.Show=-1

3、Then   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.

4、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=wdSeekCurren

5、tPageHeader  Selection.WholeStory  Selection.DeleteUnit:=wdCharacter,Count:=1  Selection.WholeStory  WithSelection.ParagraphFormat    .Borders(wdBorderLeft).LineStyle=wdLineStyleNone    .Borders(wdBorderRight).LineStyle=wdLineStyleNone    .Borders(wdBorderTop).LineStyle=wdLineStyleNone 

6、   .Borders(wdBorderBottom).LineStyle=wdLineStyleNone    With.Borders      .DistanceFromTop=1      .DistanceFromLeft=4      .DistanceFromBottom=1      .DistanceFromRight=4      .Shadow=False    EndWith  EndWith  WithOptions    .DefaultBorderLineStyle=wdLineStyleSingle    .DefaultBorderL

7、ineWidth=wdLineWidth075pt    .DefaultBorderColor=wdColorAutomatic  EndWith  IfSelection.HeaderFooter.IsHeader=TrueThen    ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageFooter  Else    ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageHeader  EndIf  Selection.Whole