求高手赐教，word中有选择性的选中不同颜色的突出显示（有图，有文档）

2337359709

正如标题所言，，文档中有很多不同颜色的突出显示，，需要将突出显示颜色转化为字体颜色，，首先得把不同颜色的突出显示选中才可以，，可是只找到了选中所有突出显示的方法，，有没有方法选中某种颜色的突出显示呢，求赐教！（注：文档大约500多页，手动鼠标选择生产力有些低下，故求高人赐教）
用查找 结果为
欲达到效果 只选中某种颜色的突出显示  

文档： 求教.rar (6.34 KB, 下载次数: 34)

2013-7-6 11:31 上传

点击文件名下载附件

wudixin96

查找功能，可以上色

2337359709

wudixin96 发表于 2013-7-6 15:14
查找功能，可以上色

求赐教，，，查找功能只能给字体上色，，文档字体均为黑色，，，只是突出显示的颜色不同，，不知您是如何操作的，，请赐教

wudixin96

2337359709 发表于 2013-7-6 15:58
求赐教，，，查找功能只能给字体上色，，文档字体均为黑色，，，只是突出显示的颜色不同，，不知您是如何 ...

谁说只能给字体上色啊

2337359709

wudixin96 发表于 2013-7-6 16:21
谁说只能给字体上色啊

麻烦您说一下操作，，截个图也行呀，，拜谢了

wudixin96

搞半天是我理解不对。抱歉。

2337359709

wudixin96 发表于 2013-7-6 17:24

总感觉，给您要表达的意思不一样 如这个图所示，，里边有很多的突出显示，，我希望通过某种方法只选中其中的一种，，比如我只想选中黄色突出显示的文字，而补选中其他的，达到这个效果 可以看到，，其他的没变化，，黄色的突出显示被选中了，，这个除了用鼠标选择以外，，有没有其他方法，，希望快速选中一个500多页的文档中所有黄色的突出显示部分

2337359709

wudixin96 发表于 2013-7-6 17:24
搞半天是我理解不对。抱歉。

依然非常感谢您的帮助，，，，，等待高人前来相助

sylun

只能用宏处理了。看看是不是想要这样的效果：

1. Sub test()
   
2.     Application.ScreenUpdating = False
   
3.     With ActiveDocument.Content.Find
   
4.         .Highlight = True
   
5.         Do While .Execute
   
6.             With .Parent
   
7.                 .Font.ColorIndex = .HighlightColorIndex
   
8.                 .HighlightColorIndex = wdNoHighlight
   
9.                 .Collapse wdCollapseEnd
   
10.             End With
    
11.         Loop
    
12.     End With
    
13.     Application.ScreenUpdating = True
    
14. End Sub

复制代码

2337359709

sylun 发表于 2013-7-6 19:14
只能用宏处理了。看看是不是想要这样的效果：

太感谢了，VBA的用处真的是太大了，不知道学起来难不难，非常感谢您的帮助，实在是太感谢了，谢谢，谢谢。