返回列表下一主題上一主題發帖

[轉貼] VBA-擷取包含關鍵字的所有段落丟到新文件中

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇貢獻勳章美女勳章熱烈參與勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-6-30 23:03 | 只看該作者

[轉貼] VBA-擷取包含關鍵字的所有段落丟到新文件中

關鍵字, VBA

原發表者：leonchou (2005-04-30)

[問題] 自動擷取、另存有關某個指定關鍵字的所有段落, VBA怎麼寫?
這個問題令我想到了Unix/Linux的 grep 指令~
在Linux可以用短短一行指令解決的事,在Windows竟然要動用到程式~ 真是的... ^^|||
(如果真有這樣的內建指令或功能, 煩請指導, Thanks!!)

Sub 東找西找( )
　Set myRange = ActiveDocument.Content
　找啥 = InputBox("找啥?")
　找到 = myRange.Find.Execute(找啥)
　Do While 找到
　　打包 = 打包 & myRange.Paragraphs(1)
　　找到 = myRange.Find.Execute(找啥)
　Loop
　If IsEmpty(打包) Then MsgBox "找無!": Exit Sub
　Documents.Add: Selection = 打包
End Sub

複製代碼

這個巨集是用 [尋找] 的方式，收集所有包含關鍵字的段落，然後一次丟到新文件中。
由於 Word2002 有 [多重選取] 的功能, 或許可以一次處理, 不須用到迴圈也說不定~~
PS. grep指令應該是只能處理純文字檔案, 想想又覺得拿這個來跟 Word / VBA 比較, 似乎有欠公平.. :p

--------------------------------------
有試過上面巨集的人可能會發現, 若是同一段的keyword有一個以上, 會被重複處理;也就是同一段可能會被重複擷取至新文件.
要避免這種情形, 可在 Do...Loop 間插入一行:
myRange.EndOf wdParagraph

Sub 東找西找( )
　Set myRange = ActiveDocument.Content
　找啥 = InputBox("找啥?")
　找到 = myRange.Find.Execute(找啥)
　Do While 找到
　　打包 = 打包 & myRange.Paragraphs(1)
　　myRange.EndOf wdParagraph
　　找到 = myRange.Find.Execute(找啥)
　Loop
　If IsEmpty(打包) Then MsgBox "找無!": Exit Sub
　Documents.Add: Selection = 打包
End Sub

複製代碼

myRange.EndOf wdParagraph 的意思是把 myRange 改設定至該段落的結尾,也就是直接從下一段繼續尋找,即可避免重複處理同一段的keyword.
wdParagraph 是 EndOF 指令(方法)的參數,指以段落為單位. 此參數可指定其他單位, 如 wdCharacter (字元)、wdWord (單字)...等等, 詳細用法請見 Word VBA 輔助說明~

樓主熱帖

偉婕電子書,歡迎免費下載參考
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

靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。

返回列表下一主題上一主題