Word目录(TOC)如何通过VBA将冒号前后内容设置为不同颜色

以下是可直接实现需求的VBA代码，不会破坏原有目录超链接功能，同时兼容中英文冒号：

Sub FormatTOCByColon()
    Dim toc As TableOfContents
    Dim para As Paragraph
    Dim tabPos As Long
    Dim colonPos As Long
    Dim rngRed As Range
    
    ' 关闭屏幕更新提升运行速度
    Application.ScreenUpdating = False
    
    With ActiveDocument
        ' 判断是否存在目录
        If .TablesOfContents.Count = 0 Then
            MsgBox "文档中未找到目录！", vbInformation
            GoTo Cleanup
        End If
        
        ' 处理第一个目录，如需处理多个可修改索引或遍历所有目录
        Set toc = .TablesOfContents(1)
        
        ' 遍历目录下所有段落（每个段落对应一个目录条目）
        For Each para In toc.Range.Paragraphs
            ' 先将整个条目重置为黑色
            para.Range.Font.ColorIndex = wdBlack
            
            ' 查找制表符位置，制表符后为页码无需处理
            tabPos = InStr(1, para.Range.Text, vbTab)
            If tabPos = 0 Then tabPos = Len(para.Range.Text)
            
            ' 查找冒号位置，同时兼容中英文冒号
            colonPos = InStr(1, Left(para.Range.Text, tabPos - 1), ":")
            If colonPos = 0 Then colonPos = InStr(1, Left(para.Range.Text, tabPos - 1), "：")
            
            ' 找到冒号则将冒号及之前内容设为红色
            If colonPos > 0 Then
                Set rngRed = para.Range.Duplicate
                rngRed.End = rngRed.Start + colonPos
                rngRed.Font.ColorIndex = wdRed
                Set rngRed = Nothing
            End If
        Next para
    End With
    
Cleanup:
    Application.ScreenUpdating = True
    Set toc = Nothing
    Set para = Nothing
    Set rngRed = Nothing
End Sub

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