怎样全部删除word文档的页眉页脚

1.打开带有页眉页脚的word文档，如图：2.双击页眉，如图：3.在页眉处右键单击，出现如图：4.单击“边框和底纹”，出现如图：5.将边框设置为”无“，单击面板下面的“应用于”长方形条框，将改为”图片“改为”段落“，单击”确定“，如图：6.回到文档，发现页眉上的横条已经不复存在，双击页眉，按”Ctrl+A“全选页眉，单击键盘上的Delete，页眉消失，如图：

如何把word中的页眉内容全部删除

展开全部方法/步骤假如我手上有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 SubSub ConvertEqns()'' ConvertEqns Macro' 宏在 2014-6-25 由 USER 创建'End Sub输入代码后，关闭窗口返回文档，重新选择在“工具”菜单中选择“宏”--“宏”，在弹出的宏名中选择＂批量删除Word页眉页脚＂，最后点击“运行”---确认即可快速地删除500个Word页眉页脚

如何批量删除上百个word文档的页眉页脚

展开全部批量删除word文档的页眉页脚，可以用下面的vba程序来实现，需要注意的是，在批量操作前，先做好备份。

Sub 批量删除文件夹里面所有Word文档的页眉页脚（）Dim Fdlg As FileDialog, FlDim Fso, Fld, Fln, WkSet Fdlg = Application.FileDialog(msoFileDialogFolderPicker)With Fdlg.Title = ＂选择要处理目标文件夹＂ & ＂——（删除里面所有Word文档的页眉页脚）＂If .Show = -1 ThenMyPath = .SelectedItems(1)ElseExit SubEnd IfEnd WithSet Fso = CreateObject(＂Scripting.FileSystemObject＂)Set Fld = Fso.GetFolder(MyPath)Set Fln = Fld.FilesFor Each Wk In FlnSet myDoc = Documents.Open(FileName:=Fld & ＂\＂ & Wk.Name)If ActiveWindow.View.SplitSpecial wdPaneNone ThenActiveWindow.Panes(2).CloseEnd IfIf ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ActivePane.View.Type = wdOutlineView ThenActiveWindow.ActivePane.View.Type = wdPrintViewEnd IfActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeaderSelection.WholeStorySelection.Delete Unit:=wdCharacter, Count:=1Selection.WholeStoryWith Selection.ParagraphFormat.Borders(wdBorderLeft).LineStyle = wdLineStyleNone.Borders(wdBorderRight).LineStyle = wdLineStyleNone.Borders(wdBorderTop).LineStyle = wdLineStyleNone.Borders(wdBorderBottom).LineStyle = wdLineStyleNoneWith .Borders.DistanceFromTop = 1.DistanceFromLeft = 4.DistanceFromBottom = 1.DistanceFromRight = 4.Shadow = FalseEnd WithEnd WithWith Options.DefaultBorderLineStyle = wdLineStyleSingle.DefaultBorderLineWidth = wdLineWidth075pt.DefaultBorderColor = wdColorAutomaticEnd WithIf Selection.HeaderFooter.IsHeader = True ThenActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooterElseActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeaderEnd IfSelection.WholeStorySelection.Delete Unit:=wdCharacter, Count:=1ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocumentSelection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _wdAlignPageNumberRight, FirstPage:=True' 以上可以换成是你自己录制的宏' C公共部分的代码Application.DisplayAlerts = False '强制执行“是”'ActiveDocument.Saved = True'强制执行“否”ActiveDocument.Close '退出NextEnd Sub

word里面如何单独删除一个页面的页眉

在Word中，默认为一节，每节的页面格式是相同的，若想在Word文档中，单独删除一个页面的页眉，必须在这一页前、后各插入一个分节符，使这页单独成为一节，就在将页的而已单独删除而不影响其它页的页眉。

操作步骤：1、在这一页的前一页的尾部，单击插入菜单，在下拉菜单中选择分隔符命令；2、弹出分隔符对话框，在分节符类型处选择下一页，如图所示；3、同理，在这一页再插入一个相同的分节符；4、在这一页、单击视图菜单，在下拉菜单中选择页眉和页脚命令；5、弹出页眉和页脚工具，单击链接到前一个按钮，断开与前一节的联系，如图所示。

6、在这一页中删除页眉即可。

word文档如何删除页眉

楼上的麻烦的要死，一点都不实用，我来告诉你。

你的word是2003还是2010如果是2010的话，先双击页眉，再点击样式工具栏右下角的小箭头，选择＂全部清除＂，就行了。

看图片。

如果是2003的话，也是先双击页眉，在格式工具栏里面选择＂清除格式＂，就行了。

看图片第一个图是word2003的，他下面的小图是word2010的

如何大批量修改word的页眉页脚

在word中可以添加或者修改页眉页脚，但是在实际操作中，需要给很多个文档添加或修改相同的页眉页脚时，该怎么办呢？介绍一个解决这个难题非常实用的工具——DOC文件页眉页脚修改器。

将要修改相同页眉或页脚的文档全部集中存在一个文件夹下，然后运行软件，如图： 页眉可以是图片，也可以是文字，如果让页眉是图片，则勾选“图片”，点击“加载”选择欲添加到页眉的图片。

如果要添加页眉的文字，就勾选“增加页眉”下的“文字”，在文字框内输入欲添加的页眉文字，勾选“居左”、“居中”、“居右”三种位置之一。

添加页脚文字，而勾选“页脚”，在文字框内输入页脚文字。

在“文件所在路径（文件夹名称）下点击“浏览”选择文件所在的文件夹。

然后点击“批量修改按”钮即可。

小提示：试用过程来看，“修改完毕”的对话框出现的时间比真正成功批量转换的时间要晚，实际上软件已经早把文档修改好了。

所以，在修改过程中，打开文档，如果都成功添加好了，直接退出软件即可。

另外，如果要批量删除页眉页脚，则请保持软件里所有页眉页脚的选项为空白再执行批量修改操作即 可。

如何去掉Word文档的页眉？

自定义样式最好解决这个问题。

方法（word2003）:1、点视图，点“页眉页脚”2、点“格式”，点“样式和格式”，再右键点右侧的“页眉”，点修改3、在弹出对话框中左下角，点“格式”，点“边框”4、将“边框”设置为“无”，点“确定”，“确定”。

5、“关闭”页眉页脚。

OK

word2003如何彻底删除页眉

怎样删除页眉的方法：1、打开Word文档后，点击上方的“视图（V）”菜单——&gt；选择“页眉和页脚（H）”——&gt；进入页眉编辑状态，并弹出页眉工具菜单，全选中页眉内容（按下Ctrl+A全选）。

2、点击“Delete键”删除内容——&gt；删除内容后，点击“页眉页脚”菜单中的“关闭（C）”即可。

转载请注明出处51数据库 » word如何批量删除页眉