嘿，这个问题我太熟悉了！你遇到的“Object does not support this action”报错，核心原因是Word 2013里的Font.TextColor不是一个可以直接赋值的简单属性，它本质是一个ColorFormat对象——你直接给它塞颜色值的操作，相当于试图把数值赋给一个对象，自然会触发“不支持该操作”的错误。

具体来说，你需要注意这几点：

• 不能直接写 cell.Font.TextColor = RGB(255,0,0) 这种代码，因为TextColor本身是对象，不是数值容器
• 正确的做法是通过它的子属性来设置颜色，常用的有两个：
  1. RGB：用RGB三色值设置自定义颜色
  2. ObjectThemeColor：用Word内置的主题色（需要配合wdThemeColor常量）

给你两个实用的代码示例：

示例1：设置单元格字体为自定义红色 #

Sub SetCustomCellColor()
    Dim targetCell As Cell
    ' 假设我们选中文档第一个表格的第一个单元格
    Set targetCell = ActiveDocument.Tables(1).Cell(1, 1)
    ' 通过TextColor的RGB子属性赋值
    targetCell.Font.TextColor.RGB = RGB(255, 0, 0)
End Sub

示例2：用Word主题色设置字体颜色 #

Sub SetThemeCellColor()
    Dim targetCell As Cell
    Set targetCell = ActiveDocument.Tables(1).Cell(2, 1)
    ' 使用主题强调色1
    targetCell.Font.TextColor.ObjectThemeColor = wdThemeColorAccent1
    ' 可选：调整主题色的亮度（-100到100之间，负数变暗，正数变亮）
    targetCell.Font.TextColor.TintAndShade = -0.25
End Sub

另外补充一句：你之前用ColorIndex没问题，是因为它是直接对应颜色索引的数值属性，和TextColor的对象属性结构完全不同，所以两种属性的赋值逻辑不能混用。

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