如何全部选中相同字符串

pxt2001

以下代码可以查找字符串，统计相同字符串个数，如何实现将全部相同字符串选中(显示为抹黑)，以便于下一步操作?
With Selection.Find
        .Text = str
        .Forward = True
    End With
Do While True
        Selection.Find.Execute
        If Selection.Find.Found Then
           n = n + 1
        Else
            Exit Do
        End If
Loop

lss001

Sub 查找符合条件字符串()
    With ActiveDocument.Content
        Text = "xxx" '设置查找字符
        Do '开始查找
            fd = .Find.Execute(Text) '执行查找
            If fd = True Then .Editors.Add (-6) '添加符号
        Loop Until fd = False '不符合条件则退出
        '选择所有符合条件区域
        .GoToEditableRange(-6).Editors(1).SelectAll
        '删除Editor符号
        .GoToEditableRange(-6).Editors(1).DeleteAll
    End With
End Sub

pxt2001

感谢高手，似乎除了可编辑区域没有其他办法了。