返回列表 上一主題 發帖

[轉貼] VBA-自動分段

偉婕
　暱稱: 偉婕

版主Rank: 7Rank: 7Rank: 7

帖子
376 
主題
84 
精華
0 
積分
419 
點名
0  
作業系統
Win 8 
軟體版本
Office 2007 
閱讀權限
100 
性別
女 
註冊時間
2010-4-30 
最後登錄
2022-6-2 

論壇貢獻勳章美女勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-6-30 22:23 | 只看該作者

[轉貼] VBA-自動分段

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://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題