4

我已经能够在使用自定义颜色选择颜色的 Word 文档中返回文本的 RGB 颜色，但在使用标准颜色时不能。我最初使用以下代码：

Function GetRGBTest(Colour As Long) As String

GetRGBTest = "rgb(" & (Colour Mod 256) & "," & ((Colour \ 256) Mod 256) & "," & ((Colour \ 256 \ 256) Mod 256) & ")"

End Function

Sub TestColour()

MsgBox GetRGBTest(Selection.Font.Color)

End Sub

使用标准颜色时，selection.font.color 返回负值且 RGB 值不正确。

我尝试将其编辑为具有以下内容（其中 Dict 是 colorindex 和相应 rgb vals 的列表）：

Function GetRGBTest(Colour As Long, colInd As Integer) As String

If Colour > 0 Then
    GetRGBTest = "rgb(" & (Colour Mod 256) & "," & ((Colour \ 256) Mod 256) & "," & ((Colour \ 256 \ 256) Mod 256) & ")"
Else
    colInd = LTrim(Str(colInd))
    GetRGBTest = Dict.Item(colInd)
End If
End Function

Sub TestColour()

MsgBox GetRGBTest(Selection.Font.Color, Selection.Font.ColorIndex)

End Sub

虽然我认为 ColorIndex 返回一个与标准颜色无关的值。

有谁知道如何将这些值转换为 RGB 值？

4

2 回答 2

1

我无法快速通过 Google 搜索参考，但如果我没记错的话，Word 将返回三种可能的数据格式，其中的字体颜色。

RGB 格式

如果高字节是&H00那么剩下的三个字节代表红色、绿色和蓝色。这是您熟悉并且已经在处理的格式。

自动颜色

如果该值&HFF000000也称为，-16777216则颜色设置为自动，通常为黑色。否则，它将采用文档的默认颜色。

神秘的第三种否定格式

如果高字节的高半字节是&HD，也就是说如果数字的十六进制表示的第一位是D，那么它使用Word配色方案格式。

例如，您可能会得到&D500FFFF 第二个半字节，&H5在我们的示例中，匹配枚举 WdThemeColorIndex 中的一个值。ActiveDocument.DocumentTheme.ThemeColorScheme如果您创建一个从该枚举转换为 MsoThemeColorSchemeIndex 枚举的转换表，那么您可以在文档的集合中查找基本颜色。为什么你问的同一件事有两个具有不同索引号的枚举？好问题！继续...

然而，这并不是故事的结局！剩下的最后三个字节需要担心！下一个，高字的低字节，我觉得很简单。我相信总是如此&H00。如果您遇到该字节的不同值...好吧，祝您好运。

最后两个字节表示使值变暗或变亮的百分比（分别）。其中&FF或 255 表示没有变化，&h00表示 100%。与在颜色选择器中看到“Accent 2, Lighter 60%”之类的内容相同。顺便说一句&HD500FF66，5 是 Accent 2 的索引，&H66在较轻的字节中占 60%。

所以这里有一个函数不考虑较亮和较暗的值：

Public Function GetBasicRGB(color As Long) As String
  Dim colorIndexLookup
  Dim colorIndex As Integer
  Dim finalColor As Long
  colorIndexLookup = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 2, 1, 4, 3)
  colorIndex = colorIndexLookup( _
      ((color And &HF000000) / &H1000000) _
      + LBound(colorIndexLookup))
  finalColor = ActiveDocument.DocumentTheme.ThemeColorScheme(colorIndex)
  GetBasicRGB = "rgb(" & (finalColor And &HFF) & "," & _
      (finalColor / &H100 And &HFF) & "," & _
      ((finalColor And &HFF0000) / &H10000) & ")"
End Function

为了解释更亮和更暗，我相信您必须将 RGB 值转换为 HSL 值，然后将 L 分量修改为更亮或更暗的百分比。最后转换回RGB。但我现在不想弄清楚。

于 2013-09-07T02:47:33.723 回答
1

感谢 AndASM 对这个特定问题的精彩描述。我一直在编写一个使用该Win32::OLE库读取 word 文档的 Perl 程序。我的目标是以不同的格式输出文档，当我遇到这些索引值时，我发现自己深受困扰。在被引导到正确的方向之后，我最终在 Perl 中为这些索引构建了一个哈希查找。我去掉了所有其他看起来无用的十六进制字符串（比如&H00字节），并构造了一个搜索字符串，当通过这个哈希映射输入时返回 RGB 值：

my %indexedColors = (
    "ff0000" => [0,0,0],
    "dcffff" => [255,255,255],
    "dcf2ff" => [242,242,242],
    "dcd9ff" => [217,217,217],
    "dcbfff" => [191,191,191],
    "dca6ff" => [166,166,166],
    "dc80ff" => [128,128,128],
    "ddffff" => [0,0,0],
    "ddff80" => [127,127,127],
    "ddffa6" => [89,89,89],
    "ddffbf" => [64,64,64],
    "ddffd9" => [38,38,38],
    "ddfff2" => [13,13,13],
    "deffff" => [238,236,225],
    "dee6ff" => [221,217,195],
    "debfff" => [196,188,150],
    "de80ff" => [148,138,84],
    "de40ff" => [74,68,42],
    "de1aff" => [29,27,17],
    "dfffff" => [31,73,125],
    "dfff33" => [198,217,241],
    "dfff66" => [141,179,226],
    "dfff99" => [84,141,212],
    "dfbfff" => [23,54,93],
    "df80ff" => [15,36,62],
    "d4ffff" => [79,129,189],
    "d4ff33" => [219,229,241],
    "d4ff66" => [184,204,228],
    "d4ff99" => [149,179,215],
    "d4bfff" => [54,95,145],
    "d480ff" => [36,64,97],
    "d5ffff" => [192,80,77],
    "d5ff33" => [242,219,219],
    "d5ff66" => [229,184,183],
    "d5ff99" => [217,149,148],
    "d5bfff" => [148,54,52],
    "d580ff" => [99,36,35],
    "d6ffff" => [155,187,89],
    "d6ff33" => [221,217,195],
    "d6ff66" => [214,227,188],
    "d6ff99" => [194,214,155],
    "d6bfff" => [118,146,60],
    "d680ff" => [79,98,40],
    "d7ffff" => [128,100,162],
    "d7ff33" => [229,223,236],
    "d7ff66" => [204,192,217],
    "d7ff99" => [178,161,199],
    "d7bfff" => [95,73,122],
    "d780ff" => [64,49,82],
    "d8ffff" => [75,172,198],
    "d8ff33" => [218,238,243],
    "d8ff66" => [182,221,232],
    "d8ff99" => [146,205,220],
    "d8bfff" => [49,132,155],
    "d880ff" => [33,88,104],
    "d9ffff" => [247,150,70],
    "d9ff33" => [253,233,217],
    "d9ff66" => [251,212,180],
    "d9ff99" => [250,191,143],
    "d9bfff" => [227,108,10],
    "d980ff" => [152,72,6],
);

希望没有可怜的灵魂必须深入研究微软的向后兼容性，但以防万一。

于 2016-02-03T07:11:27.037 回答