[Word] 自動分段

[color=red]問題：[/color]如何將一篇有一萬字沒有分段的文章，將他分段為
　　　各30字，共330段? 除了每30個字按一個 Enter 外,
　　　有無更簡便的方式??
　
還是.. 找來找去找不到此功能.. 只好又用巨集了~
　
試執行此巨集 --
　
[b]Sub 自動分段()[/b]
1　Selection.HomeKey Unit:=wdStory
2　Do
3　　x = Selection.MoveRight(, 30)
4　　If x = 0 Then Exit Do
5　　Selection.TypeParagraph
6　Loop
[b]End Sub[/b]
　
[b][color=green]〔[/color][/b]依程式行號說明[b][color=green]〕[/color][/b]
　
1 將插入點移至文件啟始處 (= 按 Ctrl-Home)
2 執行迴圈 (Do... Loop)
3 將插入點右移30個字元, 傳回值丟給變數 x
4 若 x = 0 表示右移失敗 (已至檔案結尾) 則結束迴圈
5 在插入點插入段落符號 (= 按 Enter)
6 結束 Do... Loop 迴圈
　
提供參考~