推荐下载有道高中单词bin优秀word范文 11页.docx
- 文档编号:5975883
- 上传时间:2023-01-02
- 格式:DOCX
- 页数:8
- 大小:18.07KB
推荐下载有道高中单词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&"
strOutput=strOutput&vbCrLf&" [CDATA["&newChar.trans&"]]>
strOutput=strOutput&vbCrLf&" [CDATA["&newChar.phonetic&"]]>
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,"
(1)
'撷取音标
IfUBound(Split(str_base,"
'美式音标
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)),"
- ")
(1)),"
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年
[CDATA[n.狂热;放任vt.遗弃;放弃]]> [CDATA[[? 'b? nd? n]]]>
tags>考研单词
[CDATA[vi.持续;忍受;停留vt.忍受,容忍;停留]]> [CDATA[[? 'baid]]]>
[CDATA[n.能力,能耐;才能]]>
[CDATA[[? 'biliti]]]>
[CDATA[adj.反常的,不规则的;变态的]]>
[CDATA[[? b'n? : m? l]]]>
[CDATA[prep.在…上adv.在飞机上;[船]在船上;在火车上]]> [CDATA[[? 'b? : d]]]>
[CDATA[vt.废除,废止;取消,革除]]>
[CDATA[[? 'b? li? ]]]>
[CDATA[n.海外;异国adj.往国外的adv.在国外;到海外]]>
[CDATA[[? 'br? : d]]]>
[CDATA[adj.生硬的;突然的;唐突的;陡峭的]]> [CDATA[[? 'br? pt]]]>
[CDATA[n.没有;缺乏;缺席;不注意]]>
[CDATA[['? bs? ns]]]>
[CDATA[adj.缺席的;缺少的;心不在焉的;茫然的vt.使缺 席]]> [CDATA[['? bs? nt,? b'sent]]]>
单词
[CDATA[n.绝对;绝对事物adj.绝对的;完全的;专制的]]> [CDATA[['? bs? lju: t,,? bs? 'lju: t]]]>
[CDATA[vt.吸收;吸引;承受;理解;使…全神贯注]]> [CDATA[[? b's? : b,-'z? : b]]]>
[CDATA[n.吸收;全神贯注,专心致志]]>
[CDATA[[? b's? : p? ? n]]]>
[CDATA[n.摘要;抽象;抽象的概念adj.抽象的;深奥的 vt.摘要;提取;使……抽象化vi.做摘要;写梗概]]>
[CDATA[['? bstr? kt,? b'str? kt]]]> [CDATA[n.荒诞;荒诞作品adj.荒谬的;可笑的]]>
[CDATA[[? b's? : d]]]>
[CDATA[n.充裕,丰富]]>
[CDATA[[? 'b? nd? ns]]]>
[CDATA[adj.丰富的;充裕的;盛产]]>
[CDATA[[? 'b? nd? nt]]]>
[CDATA[n.滥用;虐待;辱骂;弊端;恶习,陋习vt.滥用;虐待;辱骂]]> [CDATA[[? 'bju: z,? 'bju: s]]]>
[CDATA[n.大学生,大学教师;学者adj.学术的;理论的;学院的]]> [CDATA[[,? k? 'demik]]]>
[CDA TA[n.学院;研究院;学会;专科院校]]>
[CDATA[[? 'k? d? mi]]]>
[CDATA[vt.使……加快;使……增速vi.加速;促进;增加]]> [CDATA[[? k'sel? reit]]]>
[CDATA[n.加速,促进;[物]加速度]]>
[CDATA[[? k,sel? 'rei? ? n]]]>
[CDATA[n.口音;重音;强调;特点;重音符号vt.强调;重读;带…口音讲话]]> [CDATA[['? ks? nt,? k'sent]]]>
[CDATA[vi.承认;同意;承兑vt.接受;承认;承担;承兑;容纳]]> [CDATA[[? k'sept]]]> [CDATA[adj.可接受的;合意的;可忍受的]]>
[CDATA[[? k'sept? bl]]]>
[CDATA[n.接受;接纳;[金融]承兑;赞同]]>
[CDATA[[? k'sept? ns]]]>
[CDATA[n.进入;使用权;通路vt.使用;存取;接近]]>
[CDATA[['? kses,'? ks? s,? k'ses]]]>
[CDATA[n.配件;附件;[法]从犯adj.副的;同谋的;附属 的]]> [CDATA[[? k'ses? ri]]]>
[CDATA[n.事故;意外;[法]意外事件;机遇]]>
[CDATA[['? ksid? nt]]]>
[CDATA[n.次要方面;非主要的特性;临时记号adj.意外的;偶然的;附属的;临时记号的]]>
[CDATA[[,? ksi'dent? l]]]>
[CDATA[vi.适应;调解vt.容纳;使适应;供应;调解]]> [CDATA[[? 'k? m? deit]]]>
[CDATA[vt.陪伴,伴随;伴奏vi.伴奏,伴唱]]>
[CDATA[[? 'k? mp? ni]]]>
[CDATA[vt.完成;实现;达到]]>
[CDATA[[? 'k? mpli? ? 'k? m-]]]>
[CDATA[n.一致;和谐]]>
[CDATA[[? 'k? : d? ns]]]>
[CDATA[adv.因此,于是;相应地;照著]]>
[CDATA[[? 'k? : di? li]]]>
[CDATA[n.[会计]账户;解释;[会计]账目,账单;理由vt.认为;把…视为vi.解释;导致;报账]]>
[CDATA[[? 'kaunt]]]>
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 推荐下载有道高中单词bin优秀word范文 11页 推荐 下载 有道 高中 单词 bin 优秀 word 范文 11
![提示](https://static.bdocx.com/images/bang_tan.gif)