Word文件页眉页脚批量修改工具V1.0绿色版
- 软件下载 - 绿茶软件园|33LC.com
&&&&&&&&&&&&Word文件页眉页脚批量修改工具V1.0绿色版
Word文件页眉页脚批量修改工具V1.0绿色版
软件大小：0.2891MB
软件语言：简体中文
软件授权：免费版
软件类别：应用其他
软件等级：
更新时间：
官方网站：www.33LC.com
应用平台：/WinXP/|Win7|/Vista/
Word文件页眉页脚批量修改工具 V1.0 绿色版
---------------------------------------------------------------------
Word文件页眉页脚批量修改工具可以批量修改Word的页眉页脚！
Word文件页眉页脚批量修改工具V1.0绿色版&
本类推荐本类排行
热门软件热门标签当前位置： &
怎么批量修改word的页眉
迅捷CAJ转WORD软件可一键轻松完成CAJ转换成WORD操作,且格式不变.软件功能强大、操
迅捷CAJ转换成Word转换器是一款功能强大的CAJ转Word工具。可以在不改变格式的情
1)专业搜索指定目录下的WORD文件(*.DOC;*.DOCX;)、WPS文件(*.WPS)、Powerpoint文件(*.*.pptx
软件功能简介:1、专业搜索指定目录下面的WORD文件(DOC文件、DOCX文件)、WPS文件和TXT文件
互盾CAJ转Word转换器是一款可以将caj转换成word文档的caj转换器。转换后的word文档
软件简介:迅捷ocr文字识别软件支持图片文字识别、图片文字转换成word、扫描文件
今天格子啦小编为大家带来的是iPhone7越狱后怎么恢复到原厂系统状态教程,本
Hi~ o(*￣▽￣*)ブ~小伙伴们知道新天龙八部手游的十二大门派之一的唐门是怎么样的
今天格子啦小编为大家带来的是怎么把word文字转换成图片教程,在使用word时,我
今天格子啦小编为大家带来的是Win10 Emoji表情怎么使用教程,Win10创意者更新版本
现在使用支付宝的小伙伴已经越来越多了,那么小伙伴们你们知道吗支付宝易积
现在用微信转账的小伙伴已经越来越多了,但是转着转着就有一个问题了,微信转
PDF修改器是一款可以对PDF文件进行随意修改的PDF修改软件.其中包括修改PDF文字
PDF编辑软件(PDFEditor)拥有非常高的文件编辑权限.可编辑修改PDF文字、PDF图片、PDF水印
PDFEditor是一款绿色版PDF编辑器.它支持修改编辑PDF文字、插入图片、删除水印、删除页
功能介绍:【亿愿英文文件名批量翻译修改】采用4种翻译引擎,自动识别文件名的语
对于存在安全风险的文件,QQ会自动修改其文件名,即在原有的文件名后增加“.重命
Hi~ o(*￣▽￣*)ブ~小伙伴们大家好!今天小编给大家带来了ocr文字识别软件教程,一起来
迅捷DWG转JPG软件是一款优秀的DWG文件格式转换工具.支持文件批量自动转换,一键
迅捷CAJ转换成PDF转换器是一款专业又实用的CAJ转PDF转换工具,支持批量转换、功能
小编推荐-怎么批量修改word的页眉豆丁微信公众号
君，已阅读到文档的结尾了呢~~
word 批量修改设置 页眉 页脚
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
word 批量修改设置 页眉 页脚
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='http://www.docin.com/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口word 2010下，如何批量删除Work的页眉和页脚，然后存为PDF文档
今天有这个需要，就尝试写了一段宏。
目的是把一个目录下的所有的word文件的页眉页脚删除，然后存成PDF。
这样的好处是，在电纸书上看时，能清爽一些。
再加上，办公室里，闷得我喘不上气来，也只能放弃干活，把这个事解决一下吧。
找了几个文章，写出了如下的代码，因为我装的office 2010，所以只在2010上验证过。
另外，我没有把处理work和导出PDF写在一起，目前是两个函数。
Sub 删除页眉内容()
Dim j As Section
Dim y As HeaderFooter
For Each j In ActiveDocument.Sections
For Each y In j.Headers
y.Range.Delete
y.Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
Sub 删除页脚内容()
Dim j As Section
Dim y As HeaderFooter
For Each j In ActiveDocument.Sections
For Each y In j.Footers
y.Range.Delete
End SubSub 批量删除页眉页脚()
Dim MyPath As String, i As Integer, myDoc As Document
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "选择要处理目标文件夹" & "——(删除里面所有Word文档的页眉页脚)"
If .Show = -1 Then
MyPath = .SelectedItems(1)
ChangeFileOpenDirectory MyPath
myfilename = Dir(MyPath & "\*.doc")
Do While myfilename && ""
'MsgBox myfilename
''''''''''''''''''
Dim curFileName
curFileName = MyPath & "\" & myfilename
Set myDoc = Documents.Open(FileName:=curFileName, Visible:=True)
删除页眉内容
删除页脚内容
' B可以替换的宏
' 以下是处理格式所录制的宏，可根据所需录制
''''''''''''''''
If ActiveWindow.View.SplitSpecial && wdPaneNone Then
ActiveWindow.Panes(2).Close
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
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
With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth075pt
.DefaultBorderColor = wdColorAutomatic
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.WholeStory
Selection.Delete Unit:=wdCharascter, 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'强制执行“否”
Call ActiveDocument.Save
ActiveDocument.Close '退出
'''''''''''''''''''
myfilename = Dir
Public Function GetFileExtName(ByVal FileNameData As String) As String
Dim strFileName As String
strFileName = FileNameData
If InStr(1, strFileName, ".") = 0 Then
GetFileExtName = ""
iLenk = InStr(1, strFileName, ".")
GetFileExtName = Left(strFileName, iLenk)
End Function
Sub 批量导出PDF()
Dim MyPath As String, i As Integer, myDoc As Document
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "选择要处理目标文件夹" & "——(删除里面所有Word文档的页眉页脚)"
If .Show = -1 Then
MyPath = .SelectedItems(1)
ChangeFileOpenDirectory MyPath
myfilename = Dir(MyPath & "\*.doc")
Do While myfilename && ""
'MsgBox myfilename
''''''''''''''''''
Dim curFileName
curFileName = MyPath & "\" & myfilename
Set myDoc = Documents.Open(FileName:=curFileName, Visible:=True)
Dim curPdfName
curPdfName = GetFileExtName(curFileName) + "pdf"
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
curPdfName _
, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
Application.DisplayAlerts = False '强制执行“是”
ActiveDocument.Close '退出
' ActiveWindow.Close
'''''''''''''''''''
myfilename = Dir
没有更多推荐了，怎么在word中批量删除页眉和页脚
怎么在word中批量删除页眉和页脚
学习啦【Word常见问题】 张伟
　　在日常工作中，我们有时会碰到一大堆文件需要批量删除页眉与页脚，如果一个个打开文件删除的话，会很耗时间精力，下面小编就教你怎么在word中批量删除页眉和页脚，希望对你有帮助！
　　word中批量删除页眉和页脚的步骤
　　首先，我先制作一个测试文件夹，里面包含几个word文档，都有页眉--百度这四个字，当然其他的文字也行，只是一个测试;
word中批量删除页眉和页脚的步骤图1
　　下面我们需要打开宏，03版的宏不需要去开启开发工具，只需要点击菜单栏中的工具-宏-宏;
word中批量删除页眉和页脚的步骤图2
　　进入宏对话框，我们可以在宏名随便输入英文字母，在右侧点击一下创建;
word中批量删除页眉和页脚的步骤图3
　　接着，进入了宏代码编写框，将下面代码复制进来：
　　Sub 批量删除页眉页脚()
　　Application.ScreenUpdating = False
　　Dim MyPath As String, i As Integer, myDoc As Document
　　With Application.FileDialog(msoFileDialogFolderPicker)
　　.Title = &选择要处理目标文件夹& & &&&(删除里面所有文档的页眉页脚)&
　　If .Show = -1 Then
　　MyPath = .SelectedItems(1)
　　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
　　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 '退出
　　End If
　　End With
　　Application.ScreenUpdating = True
　　MsgBox &所选Word文档的页眉页脚已删除!!!&, 64, &☆★处理完毕★☆&
　　End Sub
word中批量删除页眉和页脚的步骤图4
　　现在，我们关闭窗口，重新回到word界面，按下宏快捷键，Alt+F8，看到刚才的宏名，点击运行;
word中批量删除页眉和页脚的步骤图5
　　接着软件会让我们选择要批量处理的文件夹，选中之，然后稍等片刻，即会弹出--所选Word文档的页眉页脚已删除。
word中批量删除页眉和页脚的步骤图6
　　&&&下一页更多精彩&删除word中页眉和页脚方法&
[怎么在word中批量删除页眉和页脚]相关的文章
【Word常见问题】图文推荐