word怎么添加和取消页眉页脚.docx_第1页
word怎么添加和取消页眉页脚.docx_第2页
word怎么添加和取消页眉页脚.docx_第3页
word怎么添加和取消页眉页脚.docx_第4页
word怎么添加和取消页眉页脚.docx_第5页
已阅读5页,还剩13页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

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:=.FoundFiles(i) B可以替换的宏 以下是处理格式所录制的宏,可根据所需录制If ActiveWindow.View.SplitSpecialwdPaneNone 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.AddPageNumberAlignment:= _ 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 Sub6.输入代码后,关闭窗口返回文档,重新选择在“工具”菜单中选择“宏”-“宏”或者在“视图”里选择“宏”-“查看宏”。在弹出的宏名中选择批量删除Word页眉页脚,最后点击“运行”-确认即可快速地删除500个Word页眉页脚三,直接删除页眉页脚 1. 打开带有页眉页脚的word文档,如图:2.双击页眉,如图:3.在页眉处右键单击,单击“边框和底纹”或者在“页面布局”中找到“页面边框-边框”,出现如图:4.将边

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论