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

weiyingde

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

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

weiyingde

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

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

413191246se

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

1. Sub a0102_Blue2Red()
   
2. 'MsgBox Selection.Font.Color: End '查看颜色值（先选定字符）
   
3.     Dim i&, j&
   
4.     ActiveDocument.Content.Font.Size = 10.5
   
5.     For i = 1 To 2
   
6.         If i = 1 Then j = 16711680 Else j = 14745600
   
7.         With ActiveDocument.Content.Find
   
8.             .ClearFormatting
   
9.             .Font.Color = j
   
10.             With .Replacement
    
11.                  .ClearFormatting
    
12.                  With .Font
    
13.                       .ColorIndex = wdRed
    
14.                       .Name = "楷体_GB2312"
    
15.                       .Underline = wdUnderlineWavy
    
16.                  End With
    
17.             End With
    
18.             .Execute Replace:=wdReplaceAll
    
19.         End With
    
20.     Next
    
21. End Sub

复制代码

蜀中草莽

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

指教不敢当，互相交流一下：

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

蜀中草莽

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

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

weiyingde

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

谢谢你的讲解。

weiyingde

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

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

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

蜀中草莽

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

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