如何使Word VBA文本着色脚本作用于含表格、文本框的整个文档？

你的脚本只处理了文档主正文区域，表格单元格、文本框这类嵌套对象里的内容不会被ActiveDocument.Content包含，所以需要单独遍历这些子对象并处理。

下面是修改后的完整代码，已经适配你的需求（为low/medium/high/critical分别设置绿、黄、深红、红颜色）：

Sub AutoOpen()
    ' 先把所有文本重置为黑色
    ResetAllTextColor
    
    ' 定义需要着色的词汇和对应颜色
    ColorAllTargets "low", vbGreen
    ColorAllTargets "medium", vbYellow
    ColorAllTargets "high", RGB(139, 0, 0) ' 深红
    ColorAllTargets "critical", vbRed
End Sub

' 重置整个文档所有文本为黑色
Sub ResetAllTextColor()
    ' 处理主正文
    ActiveDocument.Content.Font.Color = vbBlack
    
    ' 处理表格所有单元格
    Dim tbl As Table, cell As Cell
    For Each tbl In ActiveDocument.Tables
        For Each cell In tbl.Range.Cells
            cell.Range.Font.Color = vbBlack
        Next cell
    Next tbl
    
    ' 处理所有文本框（形状）内的文本
    Dim shp As Shape
    For Each shp In ActiveDocument.Shapes
        If shp.TextFrame.HasText Then
            shp.TextFrame.TextRange.Font.Color = vbBlack
        End If
    Next shp
End Sub

' 对整个文档所有区域的目标词汇着色
Sub ColorAllTargets(strFind As String, clr As Long)
    ' 处理主正文
    ColorText ActiveDocument.Content, strFind, clr
    
    ' 处理表格所有单元格
    Dim tbl As Table, cell As Cell
    For Each tbl In ActiveDocument.Tables
        For Each cell In tbl.Range.Cells
            ColorText cell.Range, strFind, clr
        Next cell
    Next tbl
    
    ' 处理所有文本框（形状）内的文本
    Dim shp As Shape
    For Each shp In ActiveDocument.Shapes
        If shp.TextFrame.HasText Then
            ColorText shp.TextFrame.TextRange, strFind, clr
        End If
    Next shp
End Sub

' 核心着色函数，接受任意Range对象处理
Sub ColorText(rng As Range, strFind As String, clr As Long)
    With rng.Find
        .Text = strFind
        .Forward = True
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .Wrap = wdFindStop ' 避免循环查找
        Do While .Execute()
            rng.Font.Color = clr
        Loop
    End With
End Sub

关键改进说明 #

• 覆盖所有文本区域：新增的ColorAllTargets会自动遍历主正文、所有表格单元格、所有文本框，把每个区域的文本都传给着色函数处理
• 完整重置文本颜色：ResetAllTextColor不仅重置主正文，还处理表格和文本框，确保所有文本先统一为黑色
• 避免死循环：给查找对象加上.Wrap = wdFindStop，防止查找时反复遍历同一区域
• 适配你的需求：已经预设好四类词汇的对应颜色，直接运行AutoOpen即可生效

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