带纵向合并单元格的Word表格标题颜色调整问题

这个报错Run-time error '5991'的原因很明确：当表格存在纵向合并单元格时，Word无法直接通过Rows(1)来访问整行对象，因为合并单元格打破了行的独立性。另外你提到“Word表格无.cells属性”是个小误解——Word的Table对象是有Cells集合的，只是写法需要注意~

下面给你两种可行的解决方法，优先推荐第一种：

方法一：直接修改表格样式（最稳妥） #

既然你的表格是通过样式区分的（*Non-Results Table*和*Results Table*），直接修改对应样式的标题行底纹是最高效的方案，完全避开合并单元格的问题，还能统一所有同样式表格的格式：

手动操作步骤 #

• 打开Word的「样式」窗格（快捷键Ctrl+Shift+S）
• 找到目标表格样式（比如「Non-Results Table」），右键选择「修改」
• 在弹出的对话框中点击「格式」→「边框和底纹」
• 切换到「底纹」选项卡，选择你需要的颜色（灰色12566463/蓝色8406272），确认后保存样式

VBA批量修改样式代码 #

如果需要用代码批量修改样式，可以用这段：

Sub ModifyTableStyleShading()
    Dim targetStyle As Style
    ' 修改Non-Results Table样式的标题行底纹
    For Each targetStyle In ActiveDocument.Styles
        If targetStyle.NameLocal Like "*Non-Results Table*" Then
            With targetStyle.Table
                .HeadingRowsShading.BackgroundPatternColor = 12566463 ' 灰色
            End With
        ElseIf targetStyle.NameLocal Like "*Results Table*" Then
            With targetStyle.Table
                .HeadingRowsShading.BackgroundPatternColor = 8406272 ' 蓝色
            End With
        End If
    Next targetStyle
End Sub

方法二：遍历单元格设置底纹（兼容合并单元格） #

如果必须通过遍历表格来设置，可以直接操作单元格，通过Cell.RowIndex判断是否属于标题行（第一行）：

Sub Recolor_Table_Fixed()
    Dim Doc_Table As Table
    Dim cell As Cell
    For Each Doc_Table In ActiveDocument.Tables
        If Doc_Table.Style Like "*Non-Results Table*" Then
            ' 遍历表格中所有第一行的单元格
            For Each cell In Doc_Table.Cells
                If cell.RowIndex = 1 Then
                    cell.Shading.BackgroundPatternColor = 12566463 ' 灰色
                End If
            Next cell
        ElseIf Doc_Table.Style Like "*Results Table*" Then
            For Each cell In Doc_Table.Cells
                If cell.RowIndex = 1 Then
                    cell.Shading.BackgroundPatternColor = 8406272 ' 蓝色
                End If
            Next cell
        End If
    Next Doc_Table
End Sub

这段代码会忽略合并单元格的影响，只要单元格属于第一行，就会设置对应的底纹颜色。

补充说明 #

如果你的表格标题行不止一行，可以把cell.RowIndex = 1改成cell.RowIndex <= N（N是标题行的行数），就能批量设置多行标题的底纹啦~

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