VBA代码优化需求：精准高亮字符串中TEMPO至TSRA的所有匹配段

针对匹配范围错误、仅高亮第一组的问题，下面是可行的解决方案，核心是用带负向预查的非贪婪正则表达式锁定每个TSRA前最近的TEMPO，再通过循环处理所有匹配项实现全量高亮。

核心代码（Word环境） #

Sub HighlightTempoToTsra()
    Dim regEx As Object
    Dim matches As Object
    Dim match As Object
    Dim targetRange As Range
    Dim i As Integer
    
    ' 初始化正则对象
    Set regEx = CreateObject("VBScript.RegExp")
    With regEx
        .Global = True ' 开启全局匹配，捕获所有符合的片段
        .IgnoreCase = False ' 区分大小写，按需调整为True
        ' 正则核心：匹配TEMPO开头，中间不包含其他TEMPO，直到遇到第一个TSRA
        .Pattern = "TEMPO(?:(?!TEMPO).)*?TSRA"
    End With
    
    ' 处理当前选中的文本，可替换为指定Range（如ActiveDocument.Content）
    Set targetRange = Selection.Range
    
    ' 获取所有匹配结果
    Set matches = regEx.Execute(targetRange.Text)
    
    ' 从后往前循环处理，避免格式修改导致的位置偏移
    For i = matches.Count - 1 To 0 Step -1
        Set match = matches(i)
        With targetRange.Characters(match.FirstIndex + 1, match.Length)
            .Font.Bold = True
            .Font.Color = vbRed
        End With
    Next i
End Sub

代码说明 #

1. 正则表达式解决匹配范围问题 #

之前用TEMPO.*TSRA会触发贪婪匹配，导致从第一个TEMPO一直匹配到最后一个TSRA。新正则的逻辑：

• TEMPO：匹配起始关键字
• (?:(?!TEMPO).)*?：非捕获组，确保匹配的字符中不包含其他TEMPO，*?是非贪婪模式，遇到第一个TSRA就停止
• TSRA：匹配结束关键字
  这样就能精准锁定每个TSRA前最近的那个TEMPO到TSRA的片段，不会跨多个TEMPO。

2. 循环处理所有匹配项 #

开启.Global = True后，正则会捕获所有符合条件的片段。从后往前循环是为了避免高亮操作（虽不改变字符数量，但部分场景下Range位置可能受影响）导致的索引偏移，确保所有匹配都能被正确处理。

Excel环境适配代码 #

如果是处理Excel单元格文本，只需调整Range对象：

Sub HighlightExcelCell()
    Dim regEx As Object
    Dim matches As Object
    Dim match As Object
    Dim cell As Range
    Dim i As Integer
    
    Set regEx = CreateObject("VBScript.RegExp")
    With regEx
        .Global = True
        .IgnoreCase = False
        .Pattern = "TEMPO(?:(?!TEMPO).)*?TSRA"
    End With
    
    Set cell = Range("A1") ' 替换为目标单元格
    Set matches = regEx.Execute(cell.Value)
    
    For i = matches.Count - 1 To 0 Step -1
        Set match = matches(i)
        With cell.Characters(match.FirstIndex + 1, match.Length)
            .Font.Bold = True
            .Font.Color = vbRed
        End With
    Next i
End Sub

测试验证 #

用你提供的测试字符串，代码会精准高亮以下3组片段：

1. TEMPO1915/1918 VRB20MPS 0600 +TSRA
2. TEMPO 1918/200214003G11MPS 0200 TSRA
3. TEMPO 2009/2015 24014MPS 3100 -TSRA

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