word 2010下，如何批量删除Work的页眉和页脚，然后存为PDF文档

今天有这个需要，就尝试写了一段宏。

目的是把一个目录下的所有的word文件的页眉页脚删除，然后存成PDF。

这样的好处是，在电纸书上看时，能清爽一些。

再加上，办公室里，闷得我喘不上气来，也只能放弃干活，把这个事解决一下吧。

找了几个文章，写出了如下的代码，因为我装的office 2010，所以只在2010上验证过。

另外，我没有把处理work和导出PDF写在一起，目前是两个函数。

Sub 删除页眉内容()Dim j As SectionDim y As HeaderFooterFor Each j In ActiveDocument.SectionsFor Each y In j.Headersy.Range.Deletey.Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNoneNextNext
End SubSub 删除页脚内容()Dim j As SectionDim y As HeaderFooterFor Each j In ActiveDocument.SectionsFor Each y In j.Footersy.Range.DeleteNextNext
End Sub

Sub 批量删除页眉页脚()Dim MyPath As String, i As Integer, myDoc As DocumentWith Application.FileDialog(msoFileDialogFolderPicker).Title = "选择要处理目标文件夹" & "——(删除里面所有Word文档的页眉页脚)"If .Show = -1 ThenMyPath = .SelectedItems(1)ElseExit SubEnd IfEnd WithChangeFileOpenDirectory MyPathmyfilename = Dir(MyPath & "\*.doc")Do While myfilename <> ""'MsgBox myfilename''''''''''''''''''Dim curFileName
curFileName = MyPath & "\" & myfilenameSet myDoc = Documents.Open(FileName:=curFileName, Visible:=True)删除页眉内容删除页脚内容' 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:=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.SaveActiveDocument.Close '退出'''''''''''''''''''myfilename = DirLoop
End Sub

Public Function GetFileExtName(ByVal FileNameData As String) As StringDim strFileName As StringstrFileName = FileNameDataIf InStr(1, strFileName, ".") = 0 ThenGetFileExtName = ""ElseDim iLenkiLenk = InStr(1, strFileName, ".")GetFileExtName = Left(strFileName, iLenk)End If
End FunctionSub 批量导出PDF()Dim MyPath As String, i As Integer, myDoc As DocumentWith Application.FileDialog(msoFileDialogFolderPicker).Title = "选择要处理目标文件夹" & "——(删除里面所有Word文档的页眉页脚)"If .Show = -1 ThenMyPath = .SelectedItems(1)ElseExit SubEnd IfEnd WithChangeFileOpenDirectory MyPathmyfilename = Dir(MyPath & "\*.doc")Do While myfilename <> ""'MsgBox myfilename''''''''''''''''''Dim curFileName
curFileName = MyPath & "\" & myfilenameSet myDoc = Documents.Open(FileName:=curFileName, Visible:=True)Dim curPdfNamecurPdfName = 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:=FalseApplication.DisplayAlerts = False '强制执行“是”ActiveDocument.Close '退出' ActiveWindow.Close'''''''''''''''''''myfilename = DirLoop
End Sub

word 2010下，如何批量删除Work的页眉和页脚，然后存为PDF文档相关推荐

同时删除多个 PDF 文档最后几页
概要:PDF 文档不像 Word 的文档那样方便人们去编辑,因为他本真的特性就是为了方便阅读的,而不是为了编辑的,所以当我们去对 PDF 文档进行编辑的时候,可能往往需要以来一些专业的工具.这些工具可 ...
同时删除多个 PDF 文档前几页
概要:有时候我们在网上下载的 PDF 文档可能在前面会包含一些广告页,这些广告页是我们不想要的,所以我们就需要把这几页广告页删除掉.那怎么样才能够删除 PDF 文档的前几页呢?或许这对于大部分小伙伴来 ...
论文页眉奇偶页不同怎么设置_怎样设置Word页眉页脚奇偶页不同？
来自Excel之家,侵联系删有伙伴问,怎么设置满足下列要求的页眉页脚: 页眉要求正文部分偶数页居中对齐为"XXXX毕业设计(论文)",奇数页居中对齐是各章章名:字体采用宋体5号. ...
计算机删除文档中所有的空行,Word查找技巧：批量删除文档中空格、空行
原标题:Word查找技巧:批量删除文档中空格.空行在日常工作中我们经常会碰到以下2个困扰: 如,很多网上下载或拷贝到Word的纯文本形式的资料,最烦的莫过于文档中有一大堆空格或空行(回车符),格式非 ...
python (win32com) 批量删除 word (docx, doc) 中所有页眉、页脚 (Word.Application, Word.Basic)
之前看网上的资料,大部分都是用 python-docx 库来删除 word 文档的页眉.页脚: header.is_linked_to_previous = True 但是实际使用下来,问题不少,也不 ...
word删除任意单个字符_如何从Word中的单个页面中删除页眉或页脚
word删除任意单个字符 You can remove or make changes to headers or footers on any page in Microsoft Word. Thi ...
如何用Python批量将Pdf文档转换成Word文档？
目录一.前言二.问题或需求三.前提条件或注意事项四.代码设计思路五.具体执行代码六.效果观察七.声明及致谢八.快捷方式一.前言一般情况,WPS系列office软件付费会员都有Pdf ...
关于python：如何将Word文档批量转换为PDF文档
Q: 我们在实际工作中很容易发现,有些时候我们需要将Word文档转换为PDF文档,如果只是一个文件,我们也只是需要通过Word提供的转换为PDF文档的功能就可以实现了.但是WPS需要收 ...
XMP Remover：批量删除PDF 文档的XMP data
应客户的要求,利用Acrobat API写了一个批量删除PDF 文档中XMP的小工具. Acrobat 支持删除XMP信息,但必须一个节点一个节点删除,一个文件一个文件删除,非常麻烦,利用XMP Re ...

word 2010下，如何批量删除Work的页眉和页脚，然后存为PDF文档

word 2010下，如何批量删除Work的页眉和页脚，然后存为PDF文档相关推荐

最新文章

热门文章