ActiveDocument.Tables(k).Range.Cells(j).Shading.BackgroundPatternColor 返回 -1

Question

我有一个包含很多表格的 Word 2007 文档。每个表格都有某些单元格，其中填充了 2 种自定义颜色。我创建了一个宏，它需要输入 3 个值来提供 RGB 函数，创建一种颜色，将其与每种颜色进行匹配，然后使用新颜色更改匹配。

我使用了一个 If 语句，将填充单元格的颜色与 RGB 函数返回的颜色进行比较，并向该函数提供用户给出的输入。

If ActiveDocument.Tables(k).Range.Cells(j).Shading.BackgroundPatternColor = RGB(inputRed, inputGreen, inputBlue) Then
       'code
end if

当我浏览文档查看结果时，我注意到 3 个表中的一些单元格保留了旧颜色，因此显然宏无法识别它。

在 Word 2007 中，我选择了应该更改颜色的单元格。我去了家 ->阴影->更多颜色->自定义并看到 3 个值与用户输入的 3 个值完美匹配。

盯着显示器三十分钟后，我想到去看医生检查一下我的眼睛。 :)

在这样做之前，我开始调试该应用程序。在每个未更改的单元格上。检查这一行后：
ActiveDocument.Tables(k).Range.Cells(j).Shading.BackgroundPatternColor
我看到它返回了-1。

我认为 -1 相当于 null 或 nil，这意味着单元格未填充，但如果是这样，为什么我可以看到 RGB 值？或者系统可能无法读取RGB值，但是这个系统到底是谁？

您是否有一个链接，其中很好地解释了 Shading.BackgroundPatternColor 方法？

Answer 1

我不知道 -1 的值，但 Word 2007 中的颜色略有变化，因此这些值不再一定是 RGB 值。我对此写了大量文章 - 请参阅 http://www.wordarticles.com/Articles/颜色/2007.php