查找指定颜色的字符替换为另外指定颜色的字符

13907933959 · 发表于 2017-2-22 06:54

本帖最后由 13907933959 于 2017-2-24 06:38 编辑

前辈们好！

下面这个代码能不能改为：

1、只把红色突出显示的▲，替换为蓝色突出显示的★。

2、只把红色、黄色突出显示的▲，替换为粉红色突出显示的★。

Sub 查找指定颜色的某字符＿替换为另外指定颜色的某字符()

With ActiveDocument.Content.Find

.Font.Color = wdColorBlack

.Replacement.Font.Color = wdColorPink

.Execute FindText:="▲", ReplaceWith:="★", Format:=True, Replace:=wdReplaceAll

End With

End Sub

求前辈们赐教，谢谢！

模拟附件：

wang-way · 发表于 2017-2-22 08:50

自己录制一段宏就行了。模拟一次操作。

13907933959 · 发表于 2017-2-22 10:44

wang-way 发表于 2017-2-22 08:50
自己录制一段宏就行了。模拟一次操作。

前辈好！
感谢回复！因我还是个外行，录制宏我也只会一点、但录制这个“突出显示”的颜色，具体怎样操作，劳您详教或代录一段代码，将万分感谢！

wang-way · 发表于 2017-2-22 11:14

录制的宏的时候设置查找的内容和格式替换后的内容格式动起来手来就知道了

13907933959 · 发表于 2017-2-22 11:40

wang-way 发表于 2017-2-22 11:14
录制的宏的时候设置查找的内容和格式替换后的内容格式动起来手来就知道了

前辈好！
我录制了，但这个“突出显示”的颜色，好象设置不了（我用的是2003版的），录制宏好象对颜色也录不上去，这个要具体怎样操作，劳您详教或代录一段代码，将万分感谢！

13907933959 · 发表于 2017-2-22 14:50

请前辈们出手相助！谢谢！

13907933959 · 发表于 2017-2-23 09:16

请前辈们出手相助！谢谢！

13907933959 · 发表于 2017-2-23 16:13

请前辈们出手相助！谢谢！

13907933959 · 发表于 2017-2-25 10:38

求前辈们赐教，谢谢！

weiyingde · 发表于 2017-4-8 20:24

这个好创意，我也想知道。
只知道根据字符本身的颜色进行搜索，我查了一下，好像不可以。
或是用其它办法。
帮你顶一下。

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

[求助] 查找指定颜色的字符替换为另外指定颜色的字符