无效：格式指定字体颜色的文本

weiyingde · 发表于 2023-1-2 11:41

蜀中草莽发表于 2023-1-2 10:01
Sub 划画波浪线()
With ActiveDocument.Content
With .Find

完美解决问题啦，谢谢你！！
有两个问题请教你：
1、在提供给张大侠的附件中，我在通过程序读取，两种情况下的font的colorindex值中，得出的都是2,为什么，在格式文本时，有的能，有的不能？
2、你这.Font.Color = 14745600，是怎么测得的？
请指教，在恭候你的再次指教……

weiyingde · 发表于 2023-1-2 13:06

蜀中草莽发表于 2023-1-2 10:01
Sub 划画波浪线()
With ActiveDocument.Content
With .Find

求助，告知 .Font.Color = 14745600，是怎么测的？

413191246se · 发表于 2023-1-2 13:35

魏老师：MsgBox Selection.font.color 可以查看颜色值，两种蓝色值是不一样的。我根据草莽的代码归纳了一下，请试用：

Sub a0102_Blue2Red()
'MsgBox Selection.Font.Color: End '查看颜色值（先选定字符）
Dim i&, j&
ActiveDocument.Content.Font.Size = 10.5
For i = 1 To 2
If i = 1 Then j = 16711680 Else j = 14745600
With ActiveDocument.Content.Find
.ClearFormatting
.Font.Color = j
With .Replacement
.ClearFormatting
With .Font
.ColorIndex = wdRed
.Name = "楷体_GB2312"
.Underline = wdUnderlineWavy
End With
End With
.Execute Replace:=wdReplaceAll
End With
Next
End Sub

复制代码

蜀中草莽 · 发表于 2023-1-2 13:38

本帖最后由蜀中草莽于 2023-1-2 14:15 编辑

weiyingde 发表于 2023-1-2 11:41
完美解决问题啦，谢谢你！！
有两个问题请教你：
1、在提供给张大侠的附件中，我在通过程序读取，两种 ...

指教不敢当

，互相交流一下：

1，第一个问题，张师写那个代码替换不完整是因为颜色的十六进制值不一样，系统判定为不是同一个颜色，
rgb(0,0,225)和rgb(0,0,255) 凭眼睛看不出什么明显差别。
2. .Font.Color = 14745600，这个值是通过录制宏得到的，查看了问题文档的字体颜色通过录制Rgb(0,0,225)得到的！

蜀中草莽 · 发表于 2023-1-2 14:33

weiyingde 发表于 2023-1-2 13:06
求助，告知 .Font.Color = 14745600，是怎么测的？

我是通过录制的宏自定义字体颜色（0,0,225）
颜色值的计算公式＝ (65536 * Blue) + (256 * Green) + (Red)
413191246se老师讲的msgbox 方法更简单

weiyingde · 发表于 2023-1-2 15:32

413191246se 发表于 2023-1-2 13:35
魏老师：MsgBox Selection.font.color 可以查看颜色值，两种蓝色值是不一样的。我根据草莽的代码归纳了一 ...

谢谢你的讲解。

weiyingde · 发表于 2023-1-2 15:43

蜀中草莽发表于 2023-1-2 13:38
指教不敢当，互相交流一下：

1，第一个问题，张师写那个代码替换不完整是因为颜色的十六进制值不一 ...

我用的是word2010，我查阅的情况是

蜀中草莽 · 发表于 2023-1-2 16:42

weiyingde 发表于 2023-1-2 15:43
我用的是word2010，我查阅的情况是

那可能是文件的问题哦，我用的是4楼的文件最后一段蓝色和前面的蓝色 rgb 是不一样的

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

[求助] 无效：格式指定字体颜色的文本

评分

评分