如何批量修改多个word的图片页眉页脚，或者删除？

有大量word文档，页眉很多都是放的图片，有的是图片+文字
页脚基本是文字，但并不是固定都一样的。
怎么可以把他们都全部删了，或者批量修改呢？谢谢！

批量修改或删除word含图片的页眉页脚的方法如下：
1、通过桌面快捷方式或搜索来打开word文档。



2、在随后打开的界面左侧点击需要修改或删除含图片的页眉或页脚的word文档。



3、在接着打开的软件界面中点击页眉或页脚，使其可以编辑。



4、将鼠标光标移动到图片后面，连续按下键盘的“退格”键，即可批量删除图片。若要修改这个页眉或页脚，只需要重新再插入另一张图片即可。

方法/步骤 假如我手上有500个word文档需要删除页眉页脚 先把需要删除页眉页脚的500个word文档放在一个文件夹下，然后打开其中一个文档 在打开的文档中，选择在“工具”菜单中选择“宏”--“宏” 随后弹出“宏”对话框，在宏名中输入"Application"，最后点击"创建"按钮 随后弹出“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 输入代码后，关闭窗口返回文档，重新选择在“工具”菜单中选择“宏”--“宏”，在弹出的宏名中选择"批量删除Word页眉页脚",最后点击“运行”---确认即可快速地删除500个Word页眉页脚

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息