Word基本技巧 _运行情况WinXP

有很多人刚接触WORD的新手，经常会碰到的问题就是如何删除页眉页脚，当然一个Word里面删除页眉页脚不难，但有几百多个Word里面都有页眉页脚要你删除，那就难到不少人了，下面将针对这一问题，看看我是怎么操纵宏批量删除多个Word页眉页脚，我献丑了

需要这些哦
运行情况WinXP/Vista/Win7/Win8
Word2003
方式/
1假如我手上有500个word文档需要删除页眉页脚

文章插图

2先把需要删除页眉页脚的500个word文档放在一个文件夹下，然后打开此中一个文档

文章插图

文章插图

3在打开的文档中，选择在“东西”菜单中选择“宏”--“宏”

文章插图

4随后弹出“宏”对话框，在宏名中输入"Application"，最后点击"建立"按钮

文章插图

5随后弹出“Microsoft visual basic”设计，在编纂处输入如下代码
Sub 批量删除Word页眉页脚()
Application.ScreenUpdating = False
Dim MyPath As String, i As Integer, myDoc As Document
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "选摘要处置方针文件夹" & "——(删除里面所有Word文档的页眉页脚)"
If .Show = -1 Then
MyPath = .SelectedItems(1)
Else
Exit Sub
If
With
With Application.FileSearch
.LookIn = MyPath
.FileType = msoFileTypeWordDocuments
If .Exeen
For i = 1 To .FoundFiles.Count
Set myDoc = Documents.Open(FileName:=.FoundFiles(i))
' B可以替代的宏
' 以下是处置格局所录制的宏，可按照所需录制
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
If
If ActiveWindow.ActivveWindow.ActivePane.View.Type = wdPrintView
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