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

《word怎么添加和取消页眉页脚》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、word怎么添加和取消页眉页脚一．如何添加页眉页脚大家都知道有些时候为了让我们的文档显得更加精致，会在文档每页的上面或者下面加上公司的名字或者文档主题，更或者是页码、日期等，下面小编就向大家简单介绍一下word添加页眉页脚的方法。1首先我们新建一个文档，或者大家可以打开一个想要编辑的文档。2.我们在菜单栏点击菜单“插入”，之后点击“页眉”或者“页脚”。3.如果大家觉得这个方法比较麻烦的话，也可以直接双击页面最上面或者最下面，之后输入文字就可以了。4.之后我们点击菜单栏的“设计”菜单，可以设计页眉页脚的位置。5.很多时候我们会把首页弄成封面，这个时候就不能有页眉页脚了，我们只要点击设计菜单，

2、在首页不同前面打钩就可以了。6.如果想要在页眉页脚插入日期，点击菜单“日期与时间”选择相应的格式就可以了。7.最后如果大家想要在页眉页脚插入页码，点击菜单“页码”选择相应的格式就可以了。二．利用宏删除页眉页脚有许多人刚接触WORD的新手，常常会遇到的问题就是怎样删除页眉页脚，当然一个Word里面删除页眉页脚不难，但有几百多个Word里面都有页眉页脚要你删除，那就难到不少人了，下面将针对这一问题，看看我是怎么利用宏批量删除多个Word页眉页脚的。1.假如我手上有500个word文档需要删除页眉页脚2.先把需要删除页眉页脚的500个word文档放在一个文件夹下，然后打开其中一个文档3.在打开的

3、文档中，选择在“工具”菜单中选择“宏”--“宏”或者在“视图”里选择“宏”-“查看宏”。4.随后弹出“宏”对话框，在宏名中输入"Application"，最后点击"创建"按钮5.随后弹出“Microsoftvisualbasic”设计，在编辑处输入如下代码Sub批量删除Word页眉页脚() Application.ScreenUpdating=False DimMyPathAsString,iAsInteger,myDocAsDocument WithApplication.FileDialog(msoFileDialogFolderPicker)  .Title="选择要处理目标文件夹"

4、&"——(删除里面所有Word文档的页眉页脚)"  If.Show=-1Then   MyPath=.SelectedItems(1)  Else   ExitSub  EndIf EndWith WithApplication.FileSearch  .LookIn=MyPath  .FileType=msoFileTypeWordDocuments  If.Execute>0Then   Fori=1To.FoundFiles.Count    SetmyDoc=Documents.Open(FileName:=.FoundFiles(i))   'B可以替换的宏'以下是处理格式所录制

5、的宏，可根据所需录制IfActiveWindow.View.SplitSpecial<>wdPaneNoneThen    ActiveWindow.Panes(2).Close  EndIf  IfActiveWindow.ActivePane.View.Type=wdNormalViewOrActiveWindow._    ActivePane.View.Type=wdOutlineViewThen    ActiveWindow.ActivePane.View.Type=wdPrintView  EndIf  ActiveWindow.ActivePane.View.SeekVie

6、w=wdSeekCurrentPageHeader  Selection.WholeStory  Selection.DeleteUnit:=wdCharacter,Count:=1  Selection.WholeStory  WithSelection.ParagraphFormat    .Borders(wdBorderLeft).LineStyle=wdLineStyleNone    .Borders(wdBorderRight).LineStyle=wdLineStyleNone    .Borders(wdBorderTop).LineStyle=wdLineStyleNo

7、ne    .Borders(wdBorderBottom).LineStyle=wdLineStyleNone    With.Borders      .DistanceFromTop=1      .DistanceFromLeft=4      .DistanceFromBottom=1      .DistanceFromRight=4      .Shadow=False    EndWith  EndWit