標題: vba 如何擷取關鍵字的整個段落(包含格式)到新的word文件 [打印本頁]

---

作者: sosimpleby    時間: 2014-11-25 11:07     標題: 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
拜託各個令人敬佩的高手 我真的很需要
先謝謝各位了

---

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