如何按行号实现循环？解决表格行数量不匹配的单词着色问题

我明白你的痛点——之前的脚本只能在两个表格行数完全匹配时工作，没法灵活处理wordInput只有1行的情况，而且现在修改颜色还报错。别担心，咱们换个循环逻辑就能搞定：遍历Titles的每一行，对每一行标题，检查wordInput里的所有目标单词，找到就修改颜色，不管wordInput有多少行数据。

核心思路 #

放弃原来“行索引一一对应”的逻辑，改成双层循环：

1. 外层循环：遍历Titles表格的每一行（逐个处理每个标题）
2. 内层循环：遍历wordInput表格的每一行（获取所有需要着色的单词）
3. 对每个标题行，用查找功能定位所有目标单词，逐个修改颜色

示例VBA代码（适用于Word文档表格） #

假设你的Titles是文档中第1个表格，wordInput是第2个表格，代码如下：

Sub ColorTargetWordsInTitles()
    Dim tblTitles As Table, tblWordList As Table
    Dim titleRow As Row, wordRow As Row
    Dim titleTextRange As Range
    Dim targetWord As String
    
    ' 获取两个表格对象（根据实际位置调整索引）
    Set tblTitles = ActiveDocument.Tables(1)
    Set tblWordList = ActiveDocument.Tables(2)
    
    ' 遍历Titles的每一行（如果有表头，可改成从第2行开始：For i = 2 To tblTitles.Rows.Count）
    For Each titleRow In tblTitles.Rows
        ' 获取当前行的文本范围，去掉行尾的段落标记避免干扰
        Set titleTextRange = titleRow.Range
        titleTextRange.End = titleTextRange.End - 1
        
        ' 遍历所有需要着色的单词
        For Each wordRow In tblWordList.Rows
            ' 提取单元格中的单词，去掉Word表格自带的结束标记
            targetWord = Trim(wordRow.Cells(1).Range.Text)
            targetWord = Left(targetWord, Len(targetWord) - 2)
            
            If targetWord <> "" Then ' 跳过空行
                ' 在当前标题行中查找所有匹配的单词
                With titleTextRange.Find
                    .Text = targetWord
                    .MatchWholeWord = True ' 可选：只匹配完整单词
                    .MatchCase = False ' 可选：不区分大小写
                    .Forward = True
                    .Wrap = wdFindStop
                    
                    ' 循环查找所有匹配项并着色
                    Do While .Execute
                        titleTextRange.Font.ColorIndex = wdRed ' 这里设为红色，可自定义
                    Loop
                End With
            End If
        Next wordRow
    Next titleRow
End Sub

解决你遇到的报错问题 #

之前脚本报错大概率是这几个原因：

1. 行索引越界：原来的脚本可能用了For i = 1 To tblTitles.Rows.Count同时访问两个表格的第i行，当行数不等时就会报错
2. 单元格文本处理不当：Word表格单元格的文本末尾有特殊标记，直接用的话会导致查找不到目标单词
3. 只处理单个匹配：没有循环查找所有出现的目标单词，或者查找逻辑错误

可选优化点 #

• 如果wordInput里有重复单词，可以先去重，减少重复查找的开销
• 把颜色值改成变量（比如targetColor = wdBlue），方便统一修改
• 如果Titles有表头，把外层循环改成For i = 2 To tblTitles.Rows.Count，跳过表头行

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