文档拆分（宏）——试验宏

413191246se

* 看到网上 Word 文档拆分的教学文章，我动手将其录制为宏，原来 Word 本身就有拆分文档的功能！
* 在应用下面的《文档拆分》宏前请注意：打开的 Word 文档，必须已经设置了“标题 2”样式，因为该宏是基于“标题 2”样式来拆分宏的，有兴趣的朋友可以试试：

1. Sub DocSplit()
   
2. 'Split on Title2/TEST-OK
   
3.     With ActiveDocument
   
4.         .Select
   
5.         With Selection
   
6.             Do While Not .Paragraphs(1).Range.Style = "标题 2"
   
7.                 .MoveStart 4, 1
   
8.             Loop
   
9.         End With
   
10.         ActiveWindow.ActivePane.View.Type = wdOutlineView
    
11.         .Subdocuments.AddFromRange Range:=Selection.Range
    
12.         .Close SaveChanges:=wdSaveChanges
    
13.     End With
    
14. End Sub

复制代码

413191246se

后记：发现此宏有问题——必须是先全选，再设置几个段落为标题 2，再拆分，不太自然，我已经想好了一种比较自然的拆分思路，可能有些烦琐。

wdpfox

老师的钻研精神令人钦佩！

We meet by chance like patches of drifting duckweed,  
May everything be fine with you everyday !
  （你我萍水相逢，愿君一切安好！）