资源描述
推荐下载有道高中单词bin优秀word范文 11页.docx
《推荐下载有道高中单词bin优秀word范文 11页.docx》由会员分享,可在线阅读,更多相关《推荐下载有道高中单词bin优秀word范文 11页.docx(8页珍藏版)》请在冰豆网上搜索。
推荐下载有道高中单词bin优秀word范文11页
本文部分内容来自网络整理,本司不为其真实性负责,如有异议或侵权请及时联系,本司将立即删除!
==本文为word格式,下载后可方便编辑和修改!
==
有道高中单词bin
篇一:
有道单词本
'1.将以下程式码复制到ExcelVBA模组(Module)中
'
'2.在Excel工作表中AColumn输入要批量翻译的生词列表
'
'3.若要转出有道xml格式单词库文件,请执行xmlVocabulary,汇出的档案位置为Excel活页簿位置,档案名称为"工作表名称.xml"
'
'4.若要批量翻译直接写入Excel档,请执行xlsmVocabulary
'
'5.先以少量生词列表测试翻译速度,我自己1000个字大概花7~8分钟翻译
'
'6.若要现成的Excel档,请网搜"有道单词本.xlsm"
PrivateTypeCharacter
wordAsString
transAsString
phoneticAsString
tagsAsString
'progressAsInteger
EndType
'汇出有道xml格式单词库文件
SubxmlVocabulary()
DimnewCharAsCharacter
DimRAsRange
DimRowAsRange
DimstrOutputAsString
DimarrBytes()AsByte
newChar.tags=ActiveSheet.name
ActiveSheet.Names.Addname:
="NewWord",RefersTo:
="=OFFSET($A$1,0,0,COUNTA($A:
$A))"
SetR=ActiveSheet.Names("NewWord").RefersToRange
strOutput=""
ForEachRowInR.Rows
newChar.word=Trim(Row
(1))
CallsearchWord(newChar.word,newChar.trans,newChar.phonetic)
strOutput=strOutput&vbCrLf&"- "
strOutput=strOutput&vbCrLf&""&newChar.word&""
strOutput=strOutput&vbCrLf&"[CDATA["&newChar.trans&"]]>
"
strOutput=strOutput&vbCrLf&"[CDATA["&newChar.phonetic&"]]>
"strOutput=strOutput&vbCrLf&""&newChar.tags&""
strOutput=strOutput&vbCrLf&""
strOutput=strOutput&vbCrLf&""
NextRow
strOutput=strOutput&vbCrLf&""
arrBytes=ChrW(&HFEFF)&strOutput'写入unicode文字码
OpenApplication.ActiveWorkbook.Path&"\"&newChar.tags&".xml"ForBinaryAs#1'立xml格式档案
Put#1,,arrBytes
Close#1
EndSub
'单词音译写入Excel档
SubxlsmVocabulary()
DimnewCharAsCharacter
DimRAsRange
DimRowAsRange
DimrrAsInteger
strTags=ActiveSheet.name
ActiveSheet.Names.Addname:
="NewWord",RefersTo:
="=OFFSET($A$1,0,0,COUNTA($A:
$A))"
SetR=ActiveSheet.Names("NewWord").RefersToRange
rr=0
ForEachRowInR.Rows
rr=rr+1
newChar.word=Trim(Row
(1))
建
CallsearchWord(newChar.word,newChar.trans,newChar.phonetic)
Worksheets(strTags).Cells(rr,2).Value=newChar.phonetic'撷取音标
Worksheets(strTags).Cells(rr,3).Value=newChar.trans'撷取翻译
NextRow
EndSub
SubsearchWord(tmpWordAsString,tmpTransAsString,tmpPhoneticAsString)
'/search?
q=单词&keyfrom=dict.index
DimXHAsObject
Dims()AsString
Dimstr_tmpAsString
Dimstr_baseAsString
tmpTrans=""
tmpPhonetic=""
'开启网页
SetXH=CreateObject("Microsoft.XMLHTTP")
OnErrorResumeNext
XH.Open"get","/search?
q="&tmpWord&"&keyfrom=dict.index",FalseXH.send
OnErrorResumeNext
str_base=XH.responseText
XH.Close
SetXH=Nothing
str_base=Split(Split(XH.responseText,"")(0),"")
(1)
'撷取音标
IfUBound(Split(str_base,"美"))=1Then
'美式音标
tmpPhonetic=Split((Split(Split(str_base,"美")
(1),"")
(1)),"")(0)
OnErrorResumeNext
Else
tmpPhonetic=Split((Split(str_base,"")
(1)),"")(0)OnErrorResumeNext
EndIf
'撷取中文翻译
str_tmp=Split((Split(str_base,"")
(1)),"
")(0)str_tmp=Split((Split(str_tmp,"
")(0)
s=Split(str_tmp,"
")tmpTrans=Split(s(LBound(s)+1),"
Fori=LBound(s)+2ToUBound(s)
tmpTrans=tmpTrans&Chr(10)&Split(s(i),"
Next
EndSub
篇二:
考研单词本可导入有道词典201X年
- abandon
[CDATA[n.狂热;放任vt.遗弃;放弃]]>
[CDATA[[?
'b?
nd?
n]]]>
<
tags>考研单词
abide[CDATA[vi.持续;忍受;停留vt.忍受,容忍;停留]]>
[CDATA[[?
'baid]]]>
考研单词- ability
[CDATA[n.能力,能耐;才能]]>
[CDATA[[?
'biliti]]]>
考研单词
- abnormal
[CDATA[adj.反常的,不规则的;变态的]]>
[CDATA[[?
b'n?
:
m?
l]]]>
考研单词- aboard
[CDATA[prep.在…上adv.在飞机上;[船]在船上;在火车上]]>
[CDATA[[?
'b?
:
d]]]>
考研单词- abolish
[CDATA[vt.废除,废止;取消,革除]]>
[CDATA[[?
'b?
li?
]]]>
考研单词
- abroad
[CDATA[n.海外;异国adj.往国外的adv.在国外;到海外]]>
[CDATA[[?
'br?
:
d]]]>
考研单词
- abrupt
[CDATA[adj.生硬的;突然的;唐突的;陡峭的]]>
[CDATA[[?
'br?
pt]]]>
考研单词
- absence
[CDATA[n.没有;缺乏;缺席;不注意]]>
[CDATA[['?
bs?
ns]]]>
考研单词
- absent
[CDATA[adj.缺席的;缺少的;心不在焉的;茫然的vt.使缺
席]]>
[CDATA[['?
bs?
nt,?
b'sent]]]>
考研
单词- absolute
[CDATA[n.绝对;绝对事物adj.绝对的;完全的;专制的]]>
[CDATA[['?
bs?
lju:
t,,?
bs?
'lju:
t]]]>
考研单词- absorb
[CDATA[vt.吸收;吸引;承受;理解;使…全神贯注]]>
[CDATA[[?
b's?
:
b,-'z?
:
b]]]>
考研单词- absorption
[CDATA[n.吸收;全神贯注,专心致志]]>
[CDATA[[?
b's?
:
p?
?
n]]]>
考研单词- abstract
[CDATA[n.摘要;抽象;抽象的概念adj.抽象的;深奥的
vt.摘要;提取;使……抽象化vi.做摘要;写梗概]]>
[CDATA[['?
bstr?
kt,?
b'str?
kt]]]>
考研单词- absurd
[CDATA[n.荒诞;荒诞作品adj.荒谬的;可笑的]]>
[CDATA[[?
b's?
:
d]]]>
考研单词
- abundance
[CDATA[n.充裕,丰富]]>
[CDATA[[?
'b?
nd?
ns]]]>
考研单词- abundant
[CDATA[adj.丰富的;充裕的;盛产]]>
[CDATA[[?
'b?
nd?
nt]]]>
考研单词
- abuse
[CDATA[n.滥用;虐待;辱骂;弊端;恶习,陋习vt.滥用;虐待;辱骂]]>
[CDATA[[?
'bju:
z,?
'bju:
s]]]>
考研单词 - academic
[CDATA[n.大学生,大学教师;学者adj.学术的;理论的;学院的]]>
[CDATA[[,?
k?
'demik]]]>
考研单词- academy
[CDA
TA[n.学院;研究院;学会;专科院校]]>
[CDATA[[?
'k?
d?
mi]]]>
考研单词
- accelerate
[CDATA[vt.使……加快;使……增速vi.加速;促进;增加]]>
[CDATA[[?
k'sel?
reit]]]>
考研单词- acceleration
[CDATA[n.加速,促进;[物]加速度]]>
[CDATA[[?
k,sel?
'rei?
?
n]]]>
考研单词
- accent
[CDATA[n.口音;重音;强调;特点;重音符号vt.强调;重读;带…口音讲话]]>
[CDATA[['?
ks?
nt,?
k'sent]]]>
考研单词 - accept
[CDATA[vi.承认;同意;承兑vt.接受;承认;承担;承兑;容纳]]>
[CDATA[[?
k'sept]]]>
考研单词- acceptable
[CDATA[adj.可接受的;合意的;可忍受的]]>
[CDATA[[?
k'sept?
bl]]]>
考研单词- acceptance
[CDATA[n.接受;接纳;[金融]承兑;赞同]]>
[CDATA[[?
k'sept?
ns]]]>
考研单词
- access
[CDATA[n.进入;使用权;通路vt.使用;存取;接近]]>
[CDATA[['?
kses,'?
ks?
s,?
k'ses]]]>
考研单词- accessory
[CDATA[n.配件;附件;[法]从犯adj.副的;同谋的;附属
的]]>
[CDATA[[?
k'ses?
ri]]]>
考研单词- accident
[CDATA[n.事故;意外;[法]意外事件;机遇]]>
[CDATA[['?
ksid?
nt]]]>
考研单词
- accidental
[CDATA[n.次要方面;非主要的特性;临时记号adj.意外的;偶然的;附属的;临时记号的]]>
[CDATA[[,?
ksi'dent?
l]]]>
考研单词- accommodate
[CDATA[vi.适应;调解vt.容纳;使适应;供应;调解]]>
[CDATA[[?
'k?
m?
deit]]]>
考研单词- accompany
[CDATA[vt.陪伴,伴随;伴奏vi.伴奏,伴唱]]>
[CDATA[[?
'k?
mp?
ni]]]>
考研单词- accomplish
[CDATA[vt.完成;实现;达到]]>
[CDATA[[?
'k?
mpli?
?
'k?
m-]]]>
考研单词
- accordance
[CDATA[n.一致;和谐]]>
[CDATA[[?
'k?
:
d?
ns]]]>
考研单词- accordingly
[CDATA[adv.因此,于是;相应地;照著]]>
[CDATA[[?
'k?
:
di?
li]]]>
考研单词- account
[CDATA[n.[会计]账户;解释;[会计]账目,账单;理由vt.认为;把…视为vi.解释;导致;报账]]>
[CDATA[[?
'kaunt]]]>
考研单词