45fan.com - 路饭网

搜索: 您的位置主页 > 电脑频道 > 电脑教程 > 阅读资讯:在Word2003中使用宏批量删除多个页眉页脚的方法

在Word2003中使用宏批量删除多个页眉页脚的方法

2016-10-16 19:24:18 来源:www.45fan.com 【

在Word2003中使用宏批量删除多个页眉页脚的方法

有许多人刚接触WORD的新手,常常会遇到的问题就是怎样删除页眉页脚,当然一个Word里面删除页眉页脚不难,但有几百多个Word里面都有页眉页脚要你删除,那就难到不少人了,下面将针对这一问题,看看我是怎么利用宏批量删除多个Word页眉页脚,我献丑了。

1、假如我手上有500个word文档需要删除页眉页脚

在Word2003中使用宏批量删除多个页眉页脚的方法

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

在Word2003中使用宏批量删除多个页眉页脚的方法

在Word2003中使用宏批量删除多个页眉页脚的方法

3、在打开的文档中,选择在“工具”菜单中选择“宏”--“

在Word2003中使用宏批量删除多个页眉页脚的方法

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

在Word2003中使用宏批量删除多个页眉页脚的方法

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

End If

End With

With Application.FileSearch

.LookIn = MyPath

.FileType = msoFileTypeWordDocuments

If .Execute > 0 Then

For i = 1 To .FoundFiles.Count

Set myDoc = Documents.Open(FileName:=.FoundFiles(i))

' B可以替换的宏

' 以下是处理格式所录制的宏,可根据所需录制

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 If

End With

Application.ScreenUpdating = True

MsgBox "所选Word文档的页眉页脚已删除!!!", 64, "☆★批量处理完毕★☆"

End Sub

Sub ConvertEqns()

'

' ConvertEqns Macro

' 宏在 2014-6-25 由 USER 创建

'

End Sub

在Word2003中使用宏批量删除多个页眉页脚的方法

6、输入代码后,关闭窗口返回文档,重新选择在“工具”菜单中选择“宏”--“宏”,在弹出的宏名中选择"批量删除Word页眉页脚",最后点击“运行”---确认即可快速地删除500个Word页眉页脚

在Word2003中使用宏批量删除多个页眉页脚的方法

在Word2003中使用宏批量删除多个页眉页脚的方法


本文地址:http://www.45fan.com/dnjc/78998.html
Tags: 批量 Word2003 多个
编辑:路饭网
关于我们 | 联系我们 | 友情链接 | 网站地图 | Sitemap | App | 返回顶部