提取Word中带下划线的字符到数组

     （ Word中宏运行 ）

Sub findstr()

  Dim str$, i%, arr(1 To 10, 1 To 1)

  With ActiveDocument.Content.find

       .Font.Underline = wdUnderlineSingle

     Do While .Execute(findtext:="", Format:=True)

        i = i + 1

        arr(i, 1) = .Parent

        str = str & "\\" & arr(i, 1)

     Loop

  End With

  Documents.Add.Content.Text = str '将选定的关键词放在新建的文档中

End Su