font.color的值可能不代表真实的颜色值

fxr2003

我在进行基于word2007的二次开发，需要取字符的颜色值，进而得到颜色的RGB分量值。但是font.color不一定代表真实的颜色值。具体情况如下:
当我选中某些字符后，打开字体对话框，选择字体颜色下拉框中“主题颜色”的某种颜色后，再通过代码font.color获取刚才所设置的字符颜色，发现值是一个非常大的负数，选择不同的主题颜色对应不同的值，此值与具体颜色无关，如-587137025，-671023105，-738131969等。真实的颜色值是24位的，上述负值超出此范围。这不是真实的颜色值，我猜这是主题颜色表中的索引号，我想问可否将上述索引号映射为真实的颜色值或者其RGB分量。

PS:我可能没说清楚，上传一个文档示例，请各位帮忙，谢谢！

[ 本帖最后由 fxr2003 于 2010-7-15 14:58 编辑 ]

renqiang851224

太复杂，解决不了，

fxr2003

我可能没表达清楚，这次上传了一个示例文档，请各位大侠帮忙！

sylun

试做了一下，看看是否可行：
Sub test()
    '针对选定内容
    Dim lngRGB As Long
    Dim r As Byte, g As Byte, b As Byte
    With Dialogs(wdDialogFormatFont)
        lngRGB = .colorRGB
        r = Int(lngRGB Mod 65536 / 256)
        g = Int(lngRGB / 256) Mod 256
        b = IIf(lngRGB > 0, Int(lngRGB / 65536), 0)
    End With
    MsgBox "RGB:" & lngRGB & vbCrLf & "R:" & r & vbCrLf _
        & "G:" & g & vbCrLf & "B:" & b
End Sub

fxr2003

谢谢您的回答!
我试了下，其中读出的lngRGB 跟font.color值一样。
Dialogs(wdDialogFormatFont)只是字体对话框，颜色对话框是要点“其他颜色”后才出来的。

[ 本帖最后由 fxr2003 于 2010-7-16 10:04 编辑 ]

fxr2003

问题还没解决，我再顶顶~~

fxr2003

终于找到解决办法了

tangqingfu

能否请楼主分享一下您的方法？

Huihuangnumber1

一样的问题求解，

birishlove

一样的问题求解