查看: 524|回复: 8
自动完成这个过程：在一篇英文文档中用不同的颜色标注所有多次出现的单词（单词频率）
阅读权限20
在线时间 小时
本帖最后由 sz114 于
11:28 编辑
谢谢老师们了，我在阅读英文文章的时候，有很多单词不熟悉，所以想如果出现次数多的单词先记下了，出现次数少的暂时不记忆，方便阅读和节省时间。
但我对编写代码不熟悉，所以请大家出手帮忙，非常感谢，并提前祝大家新年快乐。
英文文档在附件中，请大家下载测试。
首先可以读入一篇txt或word英文文档，然后统计所用单词的频率，最后新建一个word文档中并体现这个要求，不同的频率级别用不同的颜色标注。
1、最后的word文档是完整的英文文章，只是单词频率不同显示颜色不同。
2、有3个级别要标注，单词出现5次以上的标注为红色，单词出现3次以上5次以下标注为蓝色，单词出现2次以下的标注为黑色。
(59.54 KB, 下载次数: 3)
11:18 上传
点击文件名下载附件
阅读权限100
在线时间 小时
你还是自己干吧，学学字典统计频率
阅读权限20
在线时间 小时
liucqa 发表于
你还是自己干吧，学学字典统计频率
您帮个忙吧，我实在是没时间，只是学习中要用，谢谢了
阅读权限20
在线时间 小时
& & & & & & & &
liucqa 发表于
你还是自己干吧，学学字典统计频率
这次请您帮个忙，下次我好好学，呵呵
阅读权限20
在线时间 小时
别沉下来，求高手帮忙啊~~~~~~~~~~~~
阅读权限30
在线时间 小时
(118.2 KB, 下载次数: 15)
15:07 上传
点击文件名下载附件
阅读权限20
在线时间 小时
sz_wap 发表于
这位老师，首先感谢您的帮助。
我看了您的代码并在试用，一篇几万字的英文文章很慢，到现在还没有完成，不知什么原因？
如果这样改一下流程是否更好？
1、运行宏，首先要求指定一篇需要工作的英文文章（txt或doc等等）
2、能否有个选项，指定重复5次以上，或其他次数区间的数字要求，
3、最后可以新建一个doc文件，完成最后的内容。
给您添麻烦了，再次谢谢您的帮助
阅读权限20
在线时间 小时
sz_wap 发表于
我找到了一位老师的代码，可以初步满足我的要求，如果改一下就可以满足了。
特别请您更改一下。
需要更改的地方：
1、需要同时可以指定几个单词表文件，比如1.txt要标注为红色，2.txt要标注为绿色。3.txt标注为蓝色。
以下是那位老师的代码。
Sub test003() '在一个英语文章中把一个单词表中所有的单词标识出来
Rem 请将word文档与txt文件放在一个文件夹下，且txt文件中须每个单词单独一行
Dim textline As String
Dim lout As Integer
Application.ScreenUpdating = False
apth = ActiveDocument.Path
lout = FreeFile
Open apth & &\list.txt& For Input As #lout 'list.txt此txt文件名必须和文件夹中txt文件名高度一致
Do While Not EOF(lout)
& & Line Input #lout, textline
& & textline = Trim(textline)
& & Selection.HomeKey wdStory
& & Do While Selection.Find.Execute(textline) = True
& && & Selection.font.Color = wdColorBlue
Close #lout
Application.ScreenUpdating = True
阅读权限20
在线时间 小时
sz114 发表于
我找到了一位老师的代码，可以初步满足我的要求，如果改一下就可以满足了。
特别请您更改一下。
我注意到这段代码有点问题，就是单词表中的会只选择一半，这个问题如何解决？
QQ图片59.png (10.44 KB, 下载次数: 0)
16:13 上传
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师Idioms of Different Colors颜色英文习语_图文_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
Idioms of Different Colors颜色英文习语
上传于||文档简介
&&有​关​不​同​颜​色​的​英​语​习​语​归​纳​、​总​结​。
大小：2.37MB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢公考,家教,作文,写作,答案,中考,高考,语文,英语,培训,教师,律师,秘书,文秘,作业,辅导
&>&&>&英文各类颜色的缩写
英文各类颜色的缩写_1200字
缩写方式一：
Dark Green
Light Blue
Light Green
缩写方式二：
crystal pink
sky nature
purple tulip
缩写方式三：
序号 英文简写 英文 中文
Green-pink
White-green
Brown-green
white-yeellow
Yellow-brown
White-grey
Grey-brown
White-pink
pink-brown
White-blue
Brown-blue
White-black
Brown-black
Grey-green
Yellow-grey
《实用文体写作知识》教学大纲“实用写作知识”课程教学大纲第一部分大纲说明一、课程性质及教学目的和要求从本质上说，本门课程是一门注重实用、讲求实效的技能型课程，强调学以致用，力求做到“教了便能学会”、“学会便能用上”，应是我们所依循的教学原则。应用性强…
大学生自主学习调查问卷 亲爱的同学：您好！本问卷是关于我校大学生自主学习情况的一个调查，旨在考察大学生对自主学习的认知、态度、方法以及效果的基本情况。本问卷不记名，仅作为本次调查分析所用，请不要有任何顾虑，根据实际情况填写。谢谢您的支持与合作！ 1.…
缩写方式一： 缩写 英文 中文
BK Black 黑色
BN Brown 棕色
BU Blue 蓝色
CR Clear 透明
DKGN Dark Green 深绿色
GN Green 绿色
GY Gray 灰色
LT BU Light Blue 浅蓝…
2015 年考研大纲已公布，我们第一时间发布 2015 考研大纲及名师解析!敬请关注！详情点 击专题。 》 》2015 考研大纲 Ⅰ．考试性质 思想政治理论考试是为高等院校和科研院所招收硕士研究生而设置的具有选拔性质的全国 招生考试科目，其目的是科学…
创建南雁文明城镇 打造生态旅游品牌——南雁镇文明镇创建工作汇报材料 尊敬的各位领导、同志们：首先，我代表镇党委、政府对各位莅临我镇检查指导工作表示热烈的欢迎。南雁镇，地处平阳县西南部，鳌江上游，系国家级风景名胜区南雁荡山旅游中心镇，浙江省旅游强镇、浙…
本文由()首发，转载请保留网址和出处！
免费下载文档：请帮我列举一下世界名车的牌子的英文单词谢谢_百度知道
请帮我列举一下世界名车的牌子的英文单词谢谢
提问者采纳
Subaru 大发：Toyota 吉普梅塞德斯-奔驰：Dodge 捷豹: Ferrari 菲亚特：Audi 雷克萨斯: Hyundai 大宇: Peugeot 雷诺：Skoda 宾利: Fiat 阿尔法罗密欧：Opel 保时捷：JEEP 悍马: Bugatti 现代：Rolls-royce 罗孚：Seat 斯柯达：Pontiac 别克：Ford 克莱斯勒：Lexus 丰田：Mitsubishi 铃木：Saab 西亚特：Infiniti 马自达：Volvo 萨博：Mazda 本田: Daewoo 双龙：HUMMER 大众：BMW 奥迪: Ssangyong 起亚: Renault 雪铁龙: Citroen 沃尔沃：Maybach 雪佛兰: Daihatsu 标致：Nissan 英菲尼迪：Land Rover 迈巴赫：Suzuki 斯巴鲁：Aston Martin 法垃利：Rover 阿斯顿马丁：Lincoln 道奇：Porsche 莱斯劳斯：Chevrolet 凯迪拉克：Buick 福特：Acura 三菱：Honda 讴歌：Cadillac 旁蒂克：Volkswagen 路虎：Kia 日产：Jaguar 欧宝: Lamborghini 布加迪: Alfa Romeo 兰旗亚: Lancia 兰博基尼: Chrysler 林肯：Mercedes-Benz 宝马：Bentley 莲花
其他类似问题
为您推荐：
其他2条回答
1886年戈特利布•戴姆勒和卡尔•奔驰同时发明了汽车。当时戴姆勒的公司标志是一颗三叉星，
1916年在它四周加上了一个圆圈，在圆的上方有四个小星星，下面是戴姆勒公司的汽车名字“梅赛德斯”。
卡尔•奔驰公司的商标最初是月桂枝包围的“奔驰(Benz)”字样。1926年两家最 古老的公司合并，
自然也将商标合在一起，中间是三叉星，上面是“梅赛德斯”，下面是“奔驰”，两家之间用月桂枝连接 。
今天，这家公司的商标已简化为形似方向盘的三叉星，喻示向海陆空发展。
奔驰汽车的标志是简化了的形似汽车方向盘的一个环形圈围着一颗三叉星。
三叉星表示 在陆海空领域全方位的机动性，环形图显示其营销全球的发展势头。
奥迪——兄弟四人手挽手
奥迪这个名字可以追朔到1...
http://www..cn/
.cn/publish/en/gb/index.html
http://www./ (劳斯莱斯)
/global/default.htm (积架)
/ (保时捷)
http://uk./0/maserati-quattroporte-sport-gt-0.html
/Article/shangjia/gzpp/8.html
/FWorld/fw/index.jsp (法拉利)
/Corporate/display.aspx?websiteid=2&langid=2&cpflgs=1111&marketid=1&infid=17 (宾利)
(Mercedes-Benz)
世界名车的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁您当前的位置 ：&&&&&&&正文
与各种颜色相关的特色英文表达
　编辑：张静怡
　　关于颜色的英语表达里隐藏的大秘密
　　每个人都有自己独特的表达方式。美国有很多基于颜色的日常短语。
　　红色是一种火热的颜色。美国人经常用它来表述热度。他们可能会说对一些不公平的事情感觉到red hot，意思是说他们对此非常愤怒。例如：
　　John is always red hot about something unfair in thesociety。
　　约翰总是对社会的不公平现象感到气愤。
　　很多墨西哥食物中含有的红色小辣椒因其颜色和火辣而被称为red hots，因此也用来形容某事物特别是快节奏的强劲音乐很火爆。例如：
　　Dixieland jazz is red hot and popular with many people。
　　迪克西兰爵士乐是一种非常受欢迎的火爆音乐。
　　粉色是一种稍淡的红。人们有时会用in the pink来表示身体健康。例如：
　　I really feel in the pink after a fortnight's holiday。
　　度了两星期的假后，我的确感到身体非常舒适。
　　蓝色是一种冷色调。美国传统布鲁斯音乐(blues music)正好与强劲的音乐相反。布鲁斯音乐非常舒缓、忧伤和深情。如果说一个人非常blue，说明他非常忧伤。例如：
　　He felt blue over his dismissal。
　　他因被解雇而情绪低落。
　　I'm feeling blue today。
　　我今天心情不好。
　　绿色是草木的自然颜色，但人可不是这样。胃不舒服的人可能会说她觉得有点难受(feels a little green)。有时一个人可能会感觉心烦意乱，因为他的某些东西不如朋友的好。这个人可能会说他非常羡慕嫉妒恨(green with envy)。还有些人会非常嫉妒朋友比他更有钱。因为美钞背面是绿色的，所以美元通常被称greenback。例如：
　　He was green with envy at his colleagues' promotion。
　　看到同事升职时，他非常嫉妒。
　　黑色也经常用于各类短语中。人们将诸事不利的一天称为黑色的一天(black day)。发生重大灾难的某日也被称为黑色的一天。现在黑名单(blacklist)是不合法的。但曾有一段时间，一些企业会拒绝雇佣黑名单上的人，因为他们属于某个不受欢迎的组织。例如：
　　It's black day, Scarlett. You haven't had bad news, haveyou?
　　今是真是糟糕的一天。斯佳丽，你没有收到什么坏消息吧？
　　在某些情况下，颜色也用于描述一种处境。Brown out用于表示电力不足。当电力需求过度时就会出现电力不足，电力系统无法满足某个地区的用电需求。灯火管制(black outs)在二战期间非常普遍。官方会下令关闭城市所有灯光，使敌机在黑暗中很难找到攻击目标。例如：
　　The blackouts are being rolled across thousands ofstreets in rural areas, suburbs and city centers in almost every county in theUK。
　　灯火管制正在全英几乎每个郡的农村、郊区和市中心的街道全面实行。
　　(沪江英语)
北方网教育频道 新闻纠错、投诉及爆料热线：022-
热点新闻排行榜
| 违法和不良信息举报电话：022- | 举报邮箱：jubao@ |
(C) 2000-.cn, Tianjin ENORTH NETNEWS Co.,LTD.All rights
本网站由天津北方网版权所有