查找输入文字并高亮，整合老师们的代码实现

wdpfox

查找输入文字并高亮，只为便捷，整合老师们的代码实现：

Sub 指定的字符全部替换为红色并突出显示灰色()

    text = InputBox("请输入要查找的文本：", "提示")

    With ActiveDocument.Content.Find
        .Replacement.Font.Color = wdColorRed
        .Execute FindText:=text, ReplaceWith:="", Format:=True, Replace:=wdReplaceAll


    End With
    With ActiveDocument.Content.Find
        .Font.Color = wdColorRed
       Do While .Execute
             If .Parent.Font.Color = wdColorRed Then
                .Parent.HighlightColorIndex = 16
            End If
        Loop
    End With

End Sub

13907933959

网友好！

加了个查找的输入框，确实更方便了！

也可以这样：

Sub 输入的字符全部替换为红色并突出显示灰色()
    Text = InputBox("请输入要查找的文本：", "提示")
    With ActiveDocument.Content.Find
        .Replacement.Font.Color = wdColorRed
        .Execute FindText:=Text, Replace:=wdReplaceAll
    End With
    With ActiveDocument.Content.Find
        .Font.Color = wdColorRed
       Do While .Execute
             If .Parent.Font.Color = wdColorRed Then
                .Parent.HighlightColorIndex = 16
            End If
        Loop
    End With
End Sub

wdpfox

谢谢回复交流！