推荐下载有道高中单词bin优秀word范文 11页.docx

1、推荐下载有道高中单词bin优秀word范文 11页本文部分内容来自网络整理，本司不为其真实性负责，如有异议或侵权请及时联系，本司将立即删除！= 本文为word格式，下载后可方便编辑和修改！ = 有道高中单词bin篇一：有道单词本 1.将以下程式码复制到Excel VBA 模组(Module)中 2.在Excel工作表中A Column输入要批量翻译的生词列表 3.若要转出有道xml格式单词库文件，请执行xmlVocabulary，汇出的档案位置为Excel活页簿位置，档案名称为工作表名称.xml 4.若要批量翻译直接写入Excel档，请执行xlsmVocabulary 5.先以少量生词列表测试

2、翻译速度，我自己1000个字大概花78分钟翻译 6.若要现成的Excel档，请网搜有道单词本.xlsmPrivate Type Characterword As Stringtrans As Stringphonetic As Stringtags As Stringprogress As IntegerEnd Type汇出有道xml格式单词库文件Sub xmlVocabulary()Dim newChar As CharacterDim R As RangeDim Row As RangeDim strOutput As StringDim arrBytes() As BytenewChar

3、.tags = ActiveSheet.nameActiveSheet.Names.Add name:=NewWord, RefersTo:=OFFSET($A$1,0,0,COUNTA($A:$A)Set R = ActiveSheet.Names(NewWord).RefersToRangestrOutput = For Each Row In R.RowsnewChar.word = Trim(Row(1)Call searchWord(newChar.word, newChar.trans, newChar.phonetic)strOutput = strOutput & vbCrLf

4、 & strOutput = strOutput & vbCrLf & & newChar.word & strOutput = strOutput & vbCrLf & strOutput = strOutput & vbCrLf & strOutput = strOutput & vbCrLf & & newChar.tags & strOutput = strOutput & vbCrLf & 1strOutput = strOutput & vbCrLf & Next RowstrOutput = strOutput & vbCrLf & arrBytes = ChrW(&HFEFF)

5、 & strOutput 写入unicode文字码Open Application.ActiveWorkbook.Path & & newChar.tags & .xml For Binary As #1立xml格式档案Put #1, , arrBytesClose #1End Sub单词音译写入Excel档Sub xlsmVocabulary()Dim newChar As CharacterDim R As RangeDim Row As RangeDim rr As IntegerstrTags = ActiveSheet.nameActiveSheet.Names.Add name:=

6、NewWord, RefersTo:=OFFSET($A$1,0,0,COUNTA($A:$A)Set R = ActiveSheet.Names(NewWord).RefersToRangerr = 0For Each Row In R.Rowsrr = rr + 1newChar.word = Trim(Row(1)建Call searchWord(newChar.word, newChar.trans, newChar.phonetic)Worksheets(strTags).Cells(rr, 2).Value = newChar.phonetic撷取音标Worksheets(strT

7、ags).Cells(rr, 3).Value = newChar.trans撷取翻译Next RowEnd SubSub searchWord(tmpWord As String, tmpTrans As String, tmpPhonetic As String)/search?q=单词&keyfrom=dict.indexDim XH As ObjectDim s() As StringDim str_tmp As StringDim str_base As StringtmpTrans = tmpPhonetic = 开启网页Set XH = CreateObject(Microsof

8、t.XMLHTTP)On Error Resume NextXH.Open get, /search?q= & tmpWord & &keyfrom=dict.index, FalseXH.sendOn Error Resume Nextstr_base = XH.responseTextXH.CloseSet XH = Nothingstr_base = Split(Split(XH.responseText, )(0), )(1)撷取音标If UBound(Split(str_base, 美) = 1 Then美式音标tmpPhonetic = Split(Split(Split(str_

9、base, 美)(1), )(1), )(0)On Error Resume NextElsetmpPhonetic = Split(Split(str_base, )(1), )(0) On Error Resume NextEnd If撷取中文翻译str_tmp = Split(Split(str_base, )(1), )(0)str_tmp = Split(Split(str_tmp, )(1), )(0)s = Split(str_tmp, )tmpTrans = Split(s(LBound(s) + 1), /li)(0)For i = LBound(s) + 2 To UBou

10、nd(s)tmpTrans = tmpTrans & Chr(10) & Split(s(i), /li)(0)NextEnd Sub篇二：考研单词本可导入有道词典201X年 abandon 考研单词 2 abide 考研单词 1 ability 考研单词2 abnormal 考研单词 1 aboard 考研单词 1 abolish 考研单词1 abroad 考研单词2 abrupt 考研单词2 absence 考研单词2 absent 考研单词 1 absolute 考研单词 1 absorb 考研单词 1 absorption 考研单词 2 abstract 考研单词 2 absurd 考

11、研单词1 abundance 考研单词 2 abundant 考研单词2 abuse 考研单词 2 academic 考研单词 2 academy 考研单词2 accelerate 考研单词 2 acceleration 考研单词2 accent 考研单词 2 accept 考研单词 2 acceptable 考研单词 2 acceptance 考研单词2 access 考研单词 1 accessory 考研单词 2 accident 考研单词2 accidental 考研单词 2 accommodate 考研单词 1 accompany 考研单词 2 accomplish 考研单词1 accordance 考研单词 1 accordingly 考研单词 2 account 考研单词2/