求教大神，如何实现段落中强制分行

飞车侠

word中的长文本，如何实现在段落中word页面自动分行的地方添加段落符或分行符（类似一些网络小说中的样子）：





如：
     《孝经》作于孔子。然其曰“先王有至德要
道以顺天下，民用和睦”，则孝之由来远矣。
近人章太炎著《孝经本夏法说》，以为《释文
》引郑氏说“禹三王先者”，以先王属禹，必有
所据。而墨子用夏道，《汉书·艺文志》序墨
家者流，即曰：“以孝视天下是以尚同。”(见
《太炎文录》)章氏之说自可信。顾吾观《尧
典》四岳举舜，曰：“瞽子，父顽母嚣象傲，
克谐以孝。蒸蒸乂，不格奸。”帝曰：“我其
试哉。”孟子言孝，首推大舜，曰：“舜尽事
亲之道而瞽瞍底豫，瞽瞍底豫而天下化，瞽
瞍底豫而天下之为父子者定，此之谓大孝。
”使尧舜之事为不妄，孝治天下之说，固有先
乎夏世者矣。








最好能用正则表达式实现。谢谢各位大神了！

413191246se

Word2003VBA宏代码，非正则，请楼主试用一下，此前请备份好原文件：

1. Sub test每行一段()
   
2.     ActiveDocument.Content.InsertParagraphAfter
   
3.     With Selection
   
4.         .HomeKey 6
   
5.         Do
   
6.             .EndKey 5
   
7.             If Asc(Selection) <> 13 Then .TypeParagraph Else .MoveDown 5, 1
   
8.         Loop Until .Paragraphs(1).Range.End = ActiveDocument.Content.End
   
9.         .WholeStory
   
10.         ActiveDocument.Paragraphs.Last.Range.Delete
    
11.         .HomeKey 6
    
12.     End With
    
13.     Dim i As Paragraph
    
14.     For Each i In ActiveDocument.Paragraphs
    
15.         If i.Range Like "*[!。]?" Then i.Range.ParagraphFormat.Alignment = wdAlignParagraphDistribute '分散对齐
    
16.     Next
    
17.     ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View.ShowAll
    
18.     MsgBox "处理完毕！！！！！！！！！！！！", 0 + 48
    
19. End Sub

复制代码