批量提取关键字所在段落，word魔方插件高效完成

需求：

提取文档中某些关键字所在的整段内容。

例如：我想提取文档中关键字【老龄化】所在的所有段落内容。

工具：

Word魔方

操作步骤：

将关键字挨个录入提取条件，然后点击【开始提取】。

操作视频演示：

结果展示：

 

插件支持多个文档、多个关键字批量提取。并且支持提取之后，标识关键字。

代码借鉴：

    '运行中的对象Set WordApp = GetObject(, "Word.Application")
    '创建新对象Set WordApp = CreateObject("Word.Application")
Sub 方法1()
    Set doc = CreateObject("word.application")
    doc.Visible = True
    Set wd = doc.Documents.Add
    rrow = ThisWorkbook.Worksheets(1).Range("a65536").End(3).Row
    For i = 2 To rrow
        wd.Paragraphs.Add
        wd.Paragraphs(i).Range.Text = ThisWorkbook.Worksheets(1).Cells(i, 3).Value
        ' Selection.Range.ListFormat.ListString'光标当前所在段落
    Next
    wd.SaveAs ThisWorkbook.Path & "\例子.docx"
End Sub

Sub 方法2()
    Set doc = CreateObject("word.application")
    doc.Visible = True
    Set wd = doc.Documents.Add
    rrow = ThisWorkbook.Worksheets(1).Range("a65536").End(3).Row
    For i = 2 To rrow
       With doc.Selection
           .TypeText ThisWorkbook.Worksheets(1).Cells(i, 3).Value
           .TypeParagraph
        End With
    Next
    wd.SaveAs ThisWorkbook.Path & "\例子.docx"
End Sub

Sub 方法3()
'复制粘贴
End Sub