vba 如何擷取關鍵字的整個段落(包含格式)到新的word文件
- 帖子
- 2
- 主題
- 2
- 精華
- 0
- 積分
- 4
- 點名
- 0
- 作業系統
- win 8
- 軟體版本
- win8
- 閱讀權限
- 10
- 註冊時間
- 2014-11-25
- 最後登錄
- 2014-11-28
|
vba 如何擷取關鍵字的整個段落(包含格式)到新的word文件
如何擷取文字(包含格式類似word直接複製以程式呈現)
以下是我在網路上尋找到的一個很厲害的VBA
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
他的功能只能包含具有關鍵字的(1)那一個段落(2)格式僅能儲存純文字
(1)我想框住它以下的兩個段落(或者是可以把原文的三個段落當成一個段落看)
(2)儲存的時候我想包含所有的格式樣式(類複製)
:P
拜託各個令人敬佩的高手 我真的很需要
先謝謝各位了 |
|
|
|
|
|
|
|
發表於 2014-11-25 11:07
| 
