英语单词批量翻译

lianwpy

我将江苏2014高考词库作好放在vba里,想以查找并替换的形式给出相对应的汉语解释,可是执行过程中报告过程太大无法运行,不知怎么做才可以
直接放在word里用vba来做(当然可以在word调用excel词库,如果都放在word有困难的话)

效果如:

works        n.著作，作品
world        n.世界
world-famous        a.世界闻名的
worldwide        a.遍及全球的，世界范围的
worm        n.软体虫,蠕虫(尤指蚯蚓)
worn        a.用坏,用旧的,疲惫的
worried        a.担心的，烦恼的
worry        n.&v.烦恼,担忧,发怒,困扰
worth        a.有…的价值,值得…的

lianwpy

请高手给帮忙将代码优化一下

banjinjiu

留下记号，excel排版没什么（不是编程），word这个编程，这功夫，花的，太吓人了。等待高手。

lianwpy

高中英语单词批量加汉语的 可能比较难吧,没人做

zhanglei1371

说明：
1. word中每个单词占一行，前后不得有空格，也就是单词前后都是回车符；
2、C:\江苏高考2014单词表词库.xls路径修改为你的实际路径；
3. excel不需打开。本人测试成功。
Sub excel词库批量替换()
On Error Resume Next
    adOpenStatic = 3
    adLockOptimistic = 3
    Dim OCN As Object, ORT As Object
    Set OCN = CreateObject("adodb.connection")
    Set ORT = CreateObject("adodb.recordset")
    OCN.Open (("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\江苏高考2014单词表词库.xls; Extended Properties=""Excel 8.0;HDR=Yes;"";"))
    ORT.Open "Select * FROM [Sheet1$]", OCN, adOpenStatic, adLockOptimistic
    Do Until ORT.EOF
        ActiveDocument.Range.Find.Execute Chr(13) + ORT.Fields("英语") + Chr(13), , , 0, , , , , , Chr(13) + ORT.Fields("英语") + Chr(9) + ORT.Fields("汉语") + Chr(13), 2
        ORT.MoveNext '.Fields.Item("Name")
    Loop
End Sub

banjinjiu

zhanglei1371 发表于 2014-7-27 20:34
说明：
1. word中每个单词占一行，前后不得有空格，也就是单词前后都是回车符；
2、C:\江苏高考2014单词表 ...

zhanglei1371 ：word程序在我的电脑运行后就死机。不太清楚原因，请指点。

1. Sub exceltoWord()
   
2. Set objWordApp = CreateObject("Word.Application")
   
3. Set objWord = objWordApp.Documents.Add
   
4. Set objSel = objWord.Application.Selection
   
5. t = Timer
   
6. Sheet1.UsedRange.Select
   
7. Selection.Copy
   
8. With objWordApp
   
9. .Documents.Add.Content.Paste
   
10. '复制所选内容到新文档中
    
11. objWord.SaveAs Filename:="C:\Documents and Settings\Administrator\桌面\江苏高考2014单词表词库.doc"
    
12. End With
    
13. MsgBox Timer - t
    
14. objWord.Close
    
15. objWordApp.Quit
    
16. Set objWordApp = Nothing   '释放对象
    
17. End Sub

复制代码

代码放在“江苏高考2014单词表词库.xls”的sheet1中（不打开word哦，2003版测试成功），使用7年的电脑大概运行时间是50到80秒，最后出现“文档2”是否保存，选择“否”，这一步没想到什么方法去掉。

banjinjiu

1. Windows("文档 2").Activate
   
2. ActiveDocument.Close savechanges:=wdDoNotSaveChanges

复制代码

lianwpy

感谢你们的无私帮助,有了这段代码我就能快速做出单词的汉语翻译了

geryjun

谢谢分享，学习了。

zhangxueqin611

都太牛逼啦，我在在word一些小技巧里挣扎呢