请求修改VBA代码：在Word文档中高亮指定字符串并关闭文档

嘿，作为编程新手能挖到实用代码已经超棒了！我帮你调整代码，加入高亮指定字符串和处理完成后自动关闭Word文档的功能，下面是修改后的完整代码，我会一步步拆解关键改动：

完整修改后的代码 #

Sub HighlightAndCloseWordDoc()
    Dim wrdApp As Object
    Dim wrdDoc As Object
    Dim startt As String
    Dim rng1 As Object
    Dim rng2 As Object
    Dim strTheText As String
    Dim i As Long
    
    ' 创建Word应用实例
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True ' 如果不需要看到Word窗口，直接改成False就行
    
    ' 打开目标Word文档（记得替换成你的实际路径）
    Set wrdDoc = wrdApp.Documents.Open("C:\你的文档路径.docx")
    
    ' 遍历Excel A列的指定字符串（从第2行到最后一行）
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        startt = Range("A" & i).Value
        
        ' 查找当前字符串并高亮所有匹配项
        Set rng1 = wrdDoc.Range
        With rng1.Find
            .Text = startt
            .Forward = True
            .Wrap = 2 ' 对应wdFindContinue，循环查找所有匹配
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            
            ' 循环找到每个匹配项并高亮
            Do While .Execute
                rng1.HighlightColorIndex = 4 ' 对应wdYellow，黄色高亮；换颜色改数值即可
                Set rng1 = wrdDoc.Range(rng1.End, wrdDoc.Range.End)
            Loop
        End With
        
        ' 保留你原代码的提取文本到Excel F列的逻辑（不需要的话直接删掉这段）
        Set rng1 = wrdDoc.Range
        If rng1.Find.Execute(FindText:=startt) Then
            Set rng2 = wrdDoc.Range(rng1.End, wrdDoc.Range.End)
            If rng2.Find.Execute(FindText:="=") Then
                strTheText = wrdDoc.Range(rng1.End, rng2.Start).Text
                Sheet1.Range("F" & i).Value = startt & " " & strTheText
            End If
        End If
    Next i
    
    ' 关闭Word文档（0对应wdDoNotSaveChanges，不保存修改；要保存改1）
    wrdDoc.Close SaveChanges:=0
    ' 退出Word应用
    wrdApp.Quit
    
    ' 释放对象避免内存占用
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
    
    MsgBox "处理完成！"
End Sub

关键改动说明 #

• 高亮功能实现：

  • 用With rng1.Find块统一配置查找规则，加入Do While .Execute循环能找到文档里所有匹配的指定字符串
  • 通过rng1.HighlightColorIndex = 4设置黄色高亮（用数值是因为我们用了Late Binding，不用额外引用Word库；换颜色的话，比如红色是wdRed=2，直接改数值就行）
  • 如果只需要高亮第一个匹配项，删掉循环，直接在Find.Execute后面加高亮代码就可以

• 自动关闭文档：

  • 遍历完所有字符串后，调用wrdDoc.Close SaveChanges:=0关闭文档，0表示不保存修改；如果需要保存改动，改成1即可
  • 用wrdApp.Quit退出Word应用，最后释放对象，避免内存泄漏

• 小细节优化：

  • 补全了所有未声明的变量，代码更规范
  • 保留了你原代码里提取文本到Excel F列的逻辑，不需要的话直接删掉那部分就行

内容的提问来源于stack exchange，提问作者Learner