时间:2021-05-22
有许多人刚接触WORD的新手,常常会遇到的问题就是怎样删除页眉页脚,当然一个Word里面删除页眉页脚不难,但有几百多个Word里面都有页眉页脚要你删除,那就难到不少人了,下面将针对这一问题,看看我是怎么利用宏批量删除多个Word页眉页脚,我献丑了。
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
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
6、输入代码后,关闭窗口返回文档,重新选择在“工具”菜单中选择“宏”--“宏”,在弹出的宏名中选择"批量删除Word页眉页脚",最后点击“运行”---确认即可快速地删除500个Word页眉页脚
相关推荐:
Word2016文档中的页眉页脚怎么显示时间?
word2003怎么添加带图片LOGO的页眉与页脚?
word怎么复制页眉页脚? word复制整页文档的技巧
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
一、word2003中1.打开需要删除页眉页脚的word文档,双击页眉处进入页眉页脚编辑状态2.在编辑中状态下将可以删除的内容都删除3.点击菜单中“
在Word2003中通过运行宏命令可以快速找到Word中的快捷键,操作步骤如下所述:第1步,打开Word2003窗口,在菜单栏依次单击“工具”→“宏”→“宏”命
分节符可以将word文档分为不同的小节,每一个小节都可以有自己的页眉页脚等样式。当我们不需要分节的时候,我们怎样删除它呢?软件名称:Word2003绿色精简版(
如何取消word页眉页脚 把原来设置的页眉和页脚全部删除掉再按步骤设置: 双击页眉—刷选页眉—按Delete删除。 1、光标置
以word为例,其有页眉页脚的空白页删除不掉是因为【距边界】的页眉页脚的数值不对。其删除添加了页眉页脚的空白页的方法如下: 1、首先打开Word,点击选择“页