Selection.Find 选择所有匹配结果解决办法

Selection.Find 选择所有匹配结果
Selection.Find的时候，默认是一个个选择结果。怎样才能一次就选择所有匹配结果呢？
在word的查找中对应 突出显示所有在该范围找到的项目


------解决方案--------------------------------------------------------
FIND无法做到这种效果，可以加上FINDNEXT来循环选中

或者用FOR NEXT循环
Sub test()
Dim rng As Range, str$
For Each rng In Selection
If rng.Value = "B" Then
str = str & "," & rng.Address
End If
Next
str = Right(str, Len(str) - 1)
Range(str).Select
End Sub
------解决方案--------------------------------------------------------
楼主可以使用Word 2007的Find对象的HitHighlight方法

VB code

Sub test()    Selection.Find.HitHighlight findtext:="楼主"End Sub