Board logo

標題: [轉貼] VBA-自動分段 [打印本頁]

作者: 偉婕    時間: 2010-6-30 22:23     標題: VBA-自動分段

本帖最後由 偉婕 於 2010-6-30 22:30 編輯

原發表者:leonchou (2005-04-18)

問題:如何將一篇有一萬字沒有分段的文章,將他分段為各30字,共330段? 除了每30個字按一個 Enter 外,有無更簡便的方式?? 
還是.. 找來找去找不到此功能.. 只好又用巨集了~ 
試執行此巨集 (行號僅供說明,非必要) --

Sub 自動分段()
1 Selection.HomeKey Unit:=wdStory
2 Do
3  x = Selection.MoveRight(, 30)
4  If x = 0 Then Exit Do
5  Selection.TypeParagraph
6 Loop
End Sub

〔依程式行號說明〕 
1 將插入點移至文件啟始處 (= 按 Ctrl-Home)
2 執行迴圈 (Do... Loop)
3 將插入點右移30個字元, 傳回值丟給變數 x
4 若 x = 0 表示右移失敗 (已至檔案結尾) 則結束迴圈
5 在插入點插入段落符號 (= 按 Enter)
6 結束 Do... Loop 迴圈




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)