如何获取word中文字颜色，并使用Msgbox按照中文提示。

afafsafaf · 发表于 2023-5-26 10:42

比如我设置文字为橙色，但是使用font.color命令提取出来的是49407，转换成RGB后是“FFC000”。
360截图20230526103920466.jpg

但是做题的人看不懂这个颜色。如何才能使转换成中文提示？

最好Msgbox，提示您设置的是 “橙色” ，并不是 “蓝色”

413191246se · 发表于 2023-5-27 01:23

Sub Macro123()
If Selection.Font.Color = 49407 Then MsgBox "您使用的颜色为橙色，并非蓝色！", vbOKOnly + vbExclamation, "颜色检测"
End Sub

afafsafaf · 发表于 2023-5-29 15:08

413191246se 发表于 2023-5-27 01:23
Sub Macro123()
If Selection.Font.Color = 49407 Then MsgBox "您使用的颜色为橙色，并非蓝色！", vb ...

蓝色RGB(0,0,255)       Selection.Font.Color=16711680
标准色蓝色             Selection.Font.Color= 12611584
蓝色，个性色1          Selection.Font.Color= 738131969

在这里我想提示的时候会自动判断，一开始输入了什么，比如说：

“您输入的字体颜色为标准色橙色，并非蓝色”
“您输入的字体颜色为绿色个性色1，并非蓝色”

这里最好可以读取从代码转换成文字。有什么好方法吗？

413191246se · 发表于 2023-5-30 01:16

Sub ColorCheck()
Dim c&, s$
c = Selection.Font.Color
If c = 12611584 Then
s = "Blue"
ElseIf c = 49407 Then
s = "Brown"
ElseIf c = 255 Then
s = "Red"
End If
If c <> 255 Then
MsgBox "The font color you entered is """ & s & """ not " & """Red!""", 0 + 16, "ColorCheck"
End If
End Sub

复制代码

413191246se · 发表于 2023-5-30 01:18

楼主，你是新人朋友，你有没有学习过免费的《微软官方VBA帮助文档CHM》啊？如果没有学习过，你可以在网络上查找一下此文档，或我可以发给你。

afafsafaf · 发表于 2023-5-30 08:49

本帖最后由 afafsafaf 于 2023-5-30 09:16 编辑

413191246se 发表于 2023-5-30 01:18
楼主，你是新人朋友，你有没有学习过免费的《微软官方VBA帮助文档CHM》啊？如果没有学习过，你可以在网络上 ...

非常感谢您，抱歉我是没有表达好我意思。

我是想做一个word操作题。比如：将文中“ABC”设置成蓝色。
这里学生可能会出现各种各样的设置错误，
我就想通过提示，帮助学生查找出错误原因。
当学生设置颜色错误时，会给出提示。
一开始想使用文字提示，“您选择的是XX颜色，需要的是蓝色，请改正”
但发现使用font.color函数得出的16进制数，转化成RGB学生不容易看懂。
而且这里有很多奇葩数值，比如
获取文字颜色“白色，背景1” 系统给出的数值是-603914241
获取文字颜色“白色，背景1，深色5%” 系统给出的数值是-603914241
获取文字颜色“白色，背景1，深色5%，深色15%”系统给出的数值是-603914241
竟然是一样的，本来我想实在不行就用最笨的方法Select case函数，现在我使用Select case函数的设想也破灭了。
有什么好方法可以解决吗？提示出学生选错的颜色。
否则，只能提示“不是蓝色，请改正”

batmanbbs · 发表于 2023-5-30 14:49

自然界的颜色有上亿种颜色，好一点的显示器有1600万种颜色，你想怎么表达呢？

afafsafaf · 发表于 2023-5-30 14:57

batmanbbs 发表于 2023-5-30 14:49
自然界的颜色有上亿种颜色，好一点的显示器有1600万种颜色，你想怎么表达呢？

至少，要把这里的70种显示出来。

并且每列的font.color返回的数值都相同。这样想通过判断返回数值，就无效了。

batmanbbs · 发表于 2023-5-30 17:40

如果只限于这70种，可以尝试使用
Font.TextColor.RGB
Font.Fill.ForeColor.RGB
两个属性结合起来进行判断

		自动登录	找回密码
密码			免费注册

[求助] 如何获取word中文字颜色，并使用Msgbox按照中文提示。