突出显示要在VB.NET中查找的word

Imports Microsoft.Office.Interop.Word

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim wordApp As New Application()
        Dim wordDoc As Document

        ' 打开Word文档
        wordDoc = wordApp.Documents.Open("C:\path\to\your\word\document.docx")

        ' 查找并突出显示指定的word
        Dim findText As String = "要查找的word"
        Dim range As Range = wordDoc.Content
        range.Find.ClearFormatting()
        range.Find.Execute(findText, MatchCase:=False, MatchWholeWord:=True)

        ' 突出显示查找到的word
        Do While range.Find.Found
            range.HighlightColorIndex = WdColorIndex.wdYellow
            range = wordDoc.Content
            range.Find.Execute(findText, MatchCase:=False, MatchWholeWord:=True)
        Loop

        ' 保存并关闭Word文档
        wordDoc.Save()
        wordDoc.Close()

        ' 退出Word应用程序
        wordApp.Quit()
    End Sub
End Class