急~~求助 word查找和替换对话框里面的突出显示所有在该范围找到的项目对应find对象的哪个属性

急~~求助 word查找和替换对话框里面的突出显示所有在该范围找到的项目对应find对象的哪个属性 vba --------------------编程问答-------------------- 或者选中所有相同样式的段落也可以 --------------------编程问答-------------------- 没有这样的属性，如果你想高亮某个内容，可以用

Sub SelectHighlight()

Selection.Find.ClearFormatting

SearchIt:

     With Selection.Find

        .Text = "我"

        .Forward = True

     Selection.Find.Execute

    If .Found = True Then

         Selection.Range.HighlightColorIndex = wdYellow

         GoTo SearchIt

     Else: End

     End If

     End With

 End Sub

--------------------编程问答-------------------- 我是想选择后进行编辑

引用 2 楼 dsd999 的回复:

没有这样的属性，如果你想高亮某个内容，可以用

Sub SelectHighlight()

Selection.Find.ClearFormatting

SearchIt:

     With Selection.Find

        .Text = "我"

        .Forward = True

     Selection.Find.Execute

    If .Found = True Then

         Selection.Range.HighlightColorIndex = wdYellow

         GoTo SearchIt

     Else: End

     End If

     End With

 End Sub

我是想选择后进行编辑

补充：VB ,  VBA