您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
大学英语四级_六级词汇音标版_可直接打印.xls80页
本文档一共被下载：
次 ,您可免费全文在线阅读后下载本文档
文档加载中...广告还剩秒
需要金币：80 &&
你可能关注的文档：
··········
··········
for certain
肯定地确凿地
for example
for fear of
由于害怕生怕以免
永久地一劳永逸地
for instance
例如比如举例说
for lack of
因缺乏因没有
待售出售的
确实毫无疑问地
for the best
完全 出于好意
for the better
好转向好的方向发展
for the future
从今以后在今后
for the moment
for the present
目前暂时暂且
for the rest
至于其余至于其它
for the sake of
为了为了的利益
for the time being
for what it is worth
forget about
free and easy
不拘形式的随便的
不受影响的
无的摆脱了的
from memory
from now on
今后从现在起
from time to time
时常有时不时
跑得比快逼近
generation gap
get above oneself
变得自高自大
get across
使通过使被理解
进步获得成功
过活相处融洽进展
与友好相处有进展
get around
规避 法律等 走动
到达了解查明
逃脱离开出发
get back at
通过走过侥幸躲过
从下来下车写下
get down to
开始认真考虑或对待
get down to work
认真开始工作
get hold of
一把抓住掌握得到
收获收 税等 抵达
对发生兴趣卷入
get into debt
get into the act
插手以便得到好处
下车离开开始
骑上 马等 过活
知道意识到
get on with
与友好相处继续干
get ones hands on
得到找到占有
离去 消息等 泄漏
get out of
逃避摆脱改掉
克服 困难等
get rid of
get the best of
get the better of
正在加载中，请稍后...2014年英语六级词汇大全(带音标)
【百度文库 - 大学英语四六级考试】我想把一个很大的word文档（有几百万个单词）里的六级以外的单词标记出来，怎么样做？ - 『 MS Office Word 』 -
OFFICE精英俱乐部 OFFICE|WORD|EXCEL|ACCESS|OUTLOOK|PPT|VBA|软件开发|办公应用 - Powered by Discuz!
我想把一个很大的word文档（有几百万个单词）里的六级以外的单词标记出来，怎么样做？
UID74026&帖子5&精华0&积分26&水晶26 枚&威望0 点&阅读权限10&注册时间&
我想把一个很大的word文档（有几百万个单词）里的六级以外的单词标记出来，怎么样做？
我想把一个很大的word文档（有几百万个单词）里的六级以外的单词标记出来，怎么样做？
（有六级词汇的词库，怎么样设计一个程序或者用一个什么样的软件，可以自动分辨出每一个六级词库之外的单词，然后标记出来？）
UID69994&帖子292&精华0&积分342&水晶341 枚&威望0 点&阅读权限20&注册时间&
你得先把词库发上来！！！！！
UID65763&帖子142&精华0&积分201&水晶201 枚&威望0 点&阅读权限20&性别男&注册时间&
你要把文件发过来,看过才知道
UID58278&帖子56&精华0&积分103&水晶102 枚&威望0 点&阅读权限15&注册时间&
个人认为:不管在word还是在excel中都要用vba才能处理,而且比较耗时,因为要逐一进行比对.
UID28539&帖子977&精华1&积分1172&水晶1143 枚&威望4 点&阅读权限100&性别男&注册时间&
把这两个都放上来看看。
我的处女作:&&
详情单击后面的超链接:&&& &&&
UID74026&帖子5&精华0&积分26&水晶26 枚&威望0 点&阅读权限10&注册时间&
假定6级词汇有5个——tree egg river bag pen
假定整个文档有10个单词——tree end sum new egg river one two bag pen
能不能设计这么一个VBA宏：
在整个文档中查找tree，找到后把tree标为红色
然后在整个文档中查找egg，找到后把egg标为红色
循环5次就可以完成任务了
应该是一个很简单的程序吧
能不能帮我编一下啊？
UID28539&帖子977&精华1&积分1172&水晶1143 枚&威望4 点&阅读权限100&性别男&注册时间&
楼主，你的是假设？如果真的话，
4万与5个？速度怎么办？
我的处女作:&&
详情单击后面的超链接:&&& &&&
UID69994&帖子292&精华0&积分342&水晶341 枚&威望0 点&阅读权限20&注册时间&
假设词库和词汇表都是word文档，单词与单词间用分隔符逗号隔开，
注意：运行前请在词汇表的首个单词前，和最后一个单词后各加一个分隔符。
我的程序不管多少个单词都适用，但如果是有几百万个单词，我不知要运行多久
Dim a, b As Range, c() As String
& & Windows(&6级.doc&).Activate
& & Set a = ActiveDocument.Range(ActiveDocument.Content.Start, ActiveDocument.Content.End - 1)
& & c = Split(a.Text, &,&)
& & Windows(&词汇表.doc&).Activate
& & For i = 0 To UBound(c)
& &&&Selection.Find.ClearFormatting
& &&&Selection.Find.Text = &,& & c(i) & &,&
& &&&Selection.Find.Execute
& &&&d = Selection.Start
& &&&f = Selection.End
& &&&Set b = Selection.Range(d + 1, f - 1)
& &&&Selection.Font.Color = wdColorRed
先用上面举的例子试一试行不行
UID28539&帖子977&精华1&积分1172&水晶1143 枚&威望4 点&阅读权限100&性别男&注册时间&
不错，看楼主的具体情况再评价吧
我的处女作:&&
详情单击后面的超链接:&&& &&&
UID74026&帖子5&精华0&积分26&水晶26 枚&威望0 点&阅读权限10&注册时间&
首先感谢各位的热情帮助，尤其是鑫11和konggs版主。看到这么多热心人，好感动。。。
运行到Set b = Selection.Range(d + 1, f - 1)时会显示“错误的参数号和无效的属性赋值”，我不知道怎么回事，可能是我操作错了，因为我一点都不懂。
我把两个文档上传在这里，干脆帮我操作一下好不好？
附件: 您需要才可以下载或查看附件。没有帐号？
UID74026&帖子5&精华0&积分26&水晶26 枚&威望0 点&阅读权限10&注册时间&
非常感谢鑫11 。
这个宏可以正常执行了，真的很感谢鑫11
我还想再改进一下：
（1）这个宏规定一个单词如果在“词汇表.doc”出现不止一次，这个宏只把其中一次标为红色。怎么样才能把所有词库中的单词都标为红色，不管出现几次？
（2）这个宏规定只有两个单词完全匹配时才标为红色，这样就会导致eggs，poured，listening这样的单词没有被标出。能不能改成这样：只要找到这个单词就把它标为红色，不管这个单词后面还有没有ed还是ing还是es？
& &至于速度慢倒是没什么，我可以等，或者一点一点的处理；accuse sb. of sth的句型也不碍事，只要把accuse标记出来就可以了。
一次又一次麻烦大家真不好意思。
UID69994&帖子292&精华0&积分342&水晶341 枚&威望0 点&阅读权限20&注册时间&
不用谢！其实我的宏编得不好，我还把它删除了，
我也得感谢你，因为编该宏的过程，我也学到许多知识。
UID69994&帖子292&精华0&积分342&水晶341 枚&威望0 点&阅读权限20&注册时间&
& & Dim a, b As Range, c() As String
& & Windows(&6级.doc&).Activate
& & Set a = ActiveDocument.Range(ActiveDocument.Content.Start, ActiveDocument.Content.End - 1)
& & c = Split(a.Text, Chr(13))
& & Windows(&词汇表.doc&).Activate
& & For i = 0 To UBound(c)
& && &&&Selection.HomeKey Unit:=wdStory
& && &&&Selection.Find.ClearFormatting
& && &&&Do
& && && && &
& && && && &If InStr(1, c(i), & &) = 0 And InStr(1, c(i), &.&) = 0 And InStr(1, c(i), &-&) = 0 And InStr(1, c(i), &'&) = 0 And InStr(1, c(i), &(&) = 0 Then
& && && && && & With Selection.Find
& && && && && && &&&.ClearFormatting
& && && && && && &&&.Text = c(i)
& && && && && && &&&.Forward = True
& && && && && && &&&.Wrap = wdFindStop
& && && && && && &&&.MatchWholeWord = True
& && && && && && &&&.MatchAllWordForms = True
& && && && && && &&&.Execute
& && && && && & End With
& && && && &Else
& && && && && & With Selection.Find
& && && && && && &&&.ClearFormatting
& && && && && && &&&.Text = c(i)
& && && && && && &&&.Forward = True
& && && && && && &&&.Wrap = wdFindStop
& && && && && && &&&.MatchAllWordForms = False
& && && && && && &&&.MatchWholeWord = True
& && && && && && &&&.Execute
& && && && && & End With
& && && && &End If
& && && && &Selection.Font.Color = wdColorRed
& && &&&Loop Until Selection.Find.Found = False
UID74026&帖子5&精华0&积分26&水晶26 枚&威望0 点&阅读权限10&注册时间&
终于成功了
和我想要的效果一样
谢谢鑫11& && &!!!!
好人啊!!!!
UID58278&帖子56&精华0&积分103&水晶102 枚&威望0 点&阅读权限15&注册时间&
想问问楼主，标记完你的那篇文章用时多久？我机子差，没去试。
UID357973&帖子9&精华0&积分58&水晶58 枚&威望0 点&阅读权限10&性别男&注册时间&
看了各位的讨论，收获真多。谢谢
UID357973&帖子9&精华0&积分58&水晶58 枚&威望0 点&阅读权限10&性别男&注册时间&
晕~才发现这是几年前的文章
[通过 QQ、MSN 分享给朋友]英em六级词汇表带音标(免费下载)英语,免费,下载,带音标,免费下载,英语六级..
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
英em六级词汇表带音标(免费下载)
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口