word怎么添加和取消页眉页脚

word怎么添加和取消页眉页脚
word怎么添加和取消页眉页脚
一．如何添加页眉页脚
大家都知道有些时候为了让我们的文档显得更加精致，会在文档每页的上面或者下面加上公司的名字或者文档主题，更或者是页码、日期等，下面小编就向大家简单介绍一下word添加页眉页脚的方法。

1首先我们新建一个文档，或者大家可以打开一个想要编辑的文档。

2.我们在菜单栏点击菜单“插入”，之后点击“页眉”或者“页脚”。

3.如果大家觉得这个方法比较麻烦的话，也可以直接双击页面最上面或者最下面，之后输入文字就可以了。

4.之后我们点击菜单栏的“设计”菜单，可以设计页眉页脚的位置。

5.很多时候我们会把首页弄成封面，这个时候就不能有页眉页脚了，我们只要点击设计菜单，在首页不同前面打钩就可以了。

6.如果想要在页眉页脚插入日期，点击菜单“日期与时间”选择相应的格式就可以了。

7.最后如果大家想要在页眉页脚插入页码，点击菜单“页码”选择相应的格式就可以了。

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

1.假如我手上有500个word文档需要删除页眉页脚
2.先把需要删除页眉页脚的500个word文档放在一个文件夹下，然后打开其中一个文档
3.在打开的文档中，选择在“工具”菜单中选择“宏”--“宏”或者在“视图”里选择“宏”-“查看宏”。

4.随后弹出“宏”对话框，在宏名中输入"Application"，最后点击"创建"按钮
5. 随后弹出“Microsoft visual basic”设计，在编辑处输入如下代码
Sub 批量删除Word页眉页脚()
Application.ScreenUpdating = False
Dim MyPathAs 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:=.FoundFile s(i))
' B可以替换的宏
' 以下是处理格式所录制的宏，可根据所需录制
If ActiveWindow.View.SplitSpecial<>wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView O r ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrent PageHeader
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.WholeStory
With Selection.ParagraphFormat
.Borders(wdBorderLeft).LineStyle = wdLineStyleN one
.Borders(wdBorderRight).LineStyle = wdLineStyle None
.Borders(wdBorderTop).LineStyle = wdLineStyleNo ne
.Borders(wdBorderBottom).LineStyle = wdLineStyl eNone
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 = wdSeekC urrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekC urrentPageHeader
End If
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDoc ument
Selection.Sections(1).Footers(1).PageNumbers.AddPageN umberAlignment:= _
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页眉页脚",最后点击“运行”---确认即可快速地删除5 00个Word页眉页脚
三，直接删除页眉页脚
1.打开带有页眉页脚的word文档，如图：
2.双击页眉，如图：
3.在页眉处右键单击，单击“边框和底纹”或者在“页面布局”中找到“页面边框-边框”，出现如图：
4.将边框设置为”无“，单击面板下面的“应用于”长方形条框，“改为”段落“，单击”确定“，如图：
5.回到文档，发现页眉上的横条已经不复存在，双击页眉，按”Ctrl+A“全选页眉，单击键盘上的Delete,页眉消失，如图：
注意：如果页眉页脚下本身没有线段，那么直接选中页眉页脚按”Ctrl+A “，再单击键盘上的Delete即可。