应用VBA将长文档word按大纲级别拆分为新文件并另存为PDF

1、将长文档中的同一级别的内容分别拆分为一个新文件，并同时以新文件内容第一行为文件名保存在当前文件夹中。Sub 按大纲级别拆分文件()Dim rngrange As RangeDim doc As DocumentDim i As IntegerDim j As IntegerDim mys As StringDim levi As IntegerDim levj As IntegerDim contt As StringDim spendtimestr As StringApplication.ScreenUpdating = Falsemypath = ActiveDocument.Path

2、starttime = TimeFor i = 1 To ActiveDocument.Paragraphs.Count If ActiveDocument.Range.Paragraphs(i).OutlineLevel = wdOutlineLevel2 Then levi = ActiveDocument.Range.Paragraphs(i).OutlineLevel Set myRange = ActiveDocument.Paragraphs(i).Range myRange.SetRange myRange.Start, myRange.End - 1 iFilename = T

3、rim(myRange.Text) j = i J等于i,即找到目标的段落，关键点之一 Do 从即找到目标的段落i开始，依次往后找，一直到找到级别小于或等于目标段落的段落或找到文章的最后，关键点之二 j = j + 1 levj = ActiveDocument.Range.Paragraphs(j).OutlineLevel Loop Until (levj levi Or levj = levi Or j = ActiveDocument.Paragraphs.Count) 级别小于或等于目标段落的段落或找到文章的最后，关键点之三 如果是件末，则将最后一段内容同时拷贝 If j = Act

4、iveDocument.Paragraphs.Count Then Set rngrange = ActiveDocument.Range(ActiveDocument.Paragraphs(i).Range.Start, ActiveDocument.Paragraphs(j).Range.End) rngrange.Select Selection.Copy Else Set rngrange = ActiveDocument.Range(ActiveDocument.Paragraphs(i).Range.Start, ActiveDocument.Paragraphs(j - 1).R

5、ange.End) rngrange.Select Selection.Copy End If Documents.Add With ActiveDocument.Content .Paste End With Call 页面设置 ActiveDocument.SaveAs FileName:=mypath & & iFilename, FileFormat:=wdFormatPDF ActiveDocument.Close savechanges:=wdDoNotSaveChanges Else End If Next iendtime = Timespendtime = Round(end

6、time - starttime) * 24 * 60 * 60, 3)spendtimestr = 共费时： & spendtime & 秒MsgBox (spendtimestr)Application.ScreenUpdating = TrueEnd SubSub 页面设置()With ActiveDocument.PageSetup.LineNumbering.Active = False.Orientation = wdOrientPortrait.TopMargin = CentimetersToPoints(2).BottomMargin = CentimetersToPoint

7、s(1.4).LeftMargin = CentimetersToPoints(1.8).RightMargin = CentimetersToPoints(1.8).Gutter = CentimetersToPoints(0).HeaderDistance = CentimetersToPoints(1.5).FooterDistance = CentimetersToPoints(1.2).PageWidth = CentimetersToPoints(14.8).PageHeight = CentimetersToPoints(21).FirstPageTray = wdPrinterDefaultBin.OtherPagesTray = wdPrinterDefaultBin.SectionStart = wdSectionNewPage.OddAndEvenPagesHeaderFooter = False.DifferentFirstPageHeaderFooter = False.VerticalAlignment = wdAlignVerticalTop.SuppressEndnotes = False.MirrorMargins = False.TwoPagesOnOne = False.BookFoldPrinting = False.BookFo