批量分割Word文档

Sub BreakOnSection()

   ' Used to set criteria for moving through the document by section.

   Application.Browser.Target = wdBrowseSection



   'A mailmerge documents ends with a section break next page.

   'Subtracting one from the section count stop error message.

   For i = 1 To ((ActiveDocument.Sections.Count) - 1)

   

      'Select and copy the section text to the clipboard

      ActiveDocument.Bookmarks("/Section").Range.Copy



      'Create a new document to paste text from clipboard.

      Documents.Add

      Selection.Paste



   ' Removes the break that is copied at the end of the section, if any.

      Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend

      Selection.Delete Unit:=wdCharacter, Count:=1

ChangeFileOpenDirectory "C:/"

      DocNum = DocNum +