VBA Word: Regex替换捕获组未突出显示

Sub HighlightCapturedGroup()
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    
    Dim doc As Document
    Set doc = ActiveDocument
    
    ' 设置正则表达式模式和要替换的文本
    regex.Pattern = "(regex)\b"
    Dim replacement As String
    replacement = "[$1]"
    
    ' 遍历文档中的每个段落
    Dim para As Paragraph
    For Each para In doc.Paragraphs
        ' 在段落中搜索匹配的文本
        If regex.Test(para.Range.Text) Then
            ' 执行替换并突出显示捕获组
            Dim replacedText As String
            replacedText = regex.Replace(para.Range.Text, replacement)
            
            ' 替换原始文本
            para.Range.Text = replacedText
            
            ' 突出显示捕获组
            Dim match As Object
            Set match = regex.Execute(replacedText)(0)
            match.Font.Bold = True
        End If
    Next para
End Sub