ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
一招顶“一万招”的懒人技巧 Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 Power Query数据清洗实战攻略 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 10620|回复: 11

[求助] 求高手赐教,word中有选择性的选中不同颜色的突出显示(有图,有文档)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2013-7-6 11:32 | 显示全部楼层 |阅读模式
正如标题所言,,文档中有很多不同颜色的突出显示,,需要将突出显示颜色转化为字体颜色,,首先得把不同颜色的突出显示选中才可以,,可是只找到了选中所有突出显示的方法,,有没有方法选中某种颜色的突出显示呢,求赐教!(注:文档大约500多页,手动鼠标选择生产力有些低下,故求高人赐教)
查找前.png 用查找 求教.png 结果为 查找后.png
欲达到效果 欲达到要求.png 只选中某种颜色的突出显示  

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



TA的精华主题

TA的得分主题

发表于 2013-7-6 15:14 | 显示全部楼层
查找功能,可以上色

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-7-6 15:58 | 显示全部楼层
wudixin96 发表于 2013-7-6 15:14
查找功能,可以上色

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

TA的精华主题

TA的得分主题

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

谁说只能给字体上色啊

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-7-6 16:51 | 显示全部楼层
wudixin96 发表于 2013-7-6 16:21
谁说只能给字体上色啊

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

TA的精华主题

TA的得分主题

发表于 2013-7-6 17:24 | 显示全部楼层
本帖最后由 wudixin96 于 2013-7-6 18:15 编辑

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

评分

参与人数 1鲜花 +2 收起 理由
2337359709 + 2 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-7-6 17:36 | 显示全部楼层
wudixin96 发表于 2013-7-6 17:24

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-7-6 18:21 | 显示全部楼层
wudixin96 发表于 2013-7-6 17:24
搞半天是我理解不对。抱歉。

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

TA的精华主题

TA的得分主题

发表于 2013-7-6 19:14 | 显示全部楼层
只能用宏处理了。看看是不是想要这样的效果:
  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
复制代码

评分

参与人数 1鲜花 +2 收起 理由
2337359709 + 2 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-7-6 20:11 | 显示全部楼层
sylun 发表于 2013-7-6 19:14
只能用宏处理了。看看是不是想要这样的效果:

太感谢了,VBA的用处真的是太大了,不知道学起来难不难,非常感谢您的帮助,实在是太感谢了,谢谢,谢谢。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2021-9-22 12:47 , Processed in 0.091619 second(s), 18 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2021 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表