[分享]WORD与金山词霸-自动标注音标的小程序

tangqingfu · 发表于 2009-4-15 20:11

原帖由 whmyq 于 2009-3-16 09:52 发表
太牛了，在XP下金山词霸2007运行成功，感谢了

谢谢whmyq兄的测试,下次下个金山词霸2007用用!

wkbu · 发表于 2009-4-15 19:47

在金山词霸2007中测试成功，但每页有几个单词没有标音标，但这已经非常令我羡慕了，楼主在软件实用方面太强了，学习。

tangqingfu · 发表于 2008-12-31 19:00

To 守版:
怎么使用?我已运行金山词霸了,可是运行您的代码还是没有反应呢?
用F8逐句测试代码,到这一句就停止了:
If Tasks.Exists("金山词霸") = False Then Exit Sub '如果未在任务栏中则关闭程序

守柔 · 发表于 2009-1-1 07:44

原帖由 tangqingfu 于 2008-12-31 19:00 发表
To 守版:
怎么使用?我已运行金山词霸了,可是运行您的代码还是没有反应呢?
用F8逐句测试代码,到这一句就停止了:
If Tasks.Exists("金山词霸") = False Then Exit Sub '如果未在任务栏中则关闭程序

不同版本的“金山词霸”，其在任务栏中的名称有所不同。
运行以下InsertTaksNames过程，在当前文档中查看与金山相关程序的任务栏中的名称后相应修改即可。
Option Explicit
Public Sub InsertTaksNames()
ActiveDocument.Content.InsertAfter GetTasks
End Sub

Private Function GetTasks() As String
Dim oTask As Word.Task
Dim str_Tasks As String
For Each oTask In Word.Tasks
str_Tasks = str_Tasks & oTask.Name & vbCrLf
Next
GetTasks = str_Tasks
End Function
能正确运行后，请把你的If Tasks.Exists("?") = False Then Exit Sub中的“？”值贴上来，以供后来者实习之。

tangqingfu · 发表于 2009-1-1 15:52

If Tasks.Exists("?") = False Then Exit Sub中的“？”的值为"谷歌金山词霸合作版"
(我下载的"谷歌金山词霸合作版"地址是:http://www.greendown.cn/soft/10570.html)
可以运行守版的代码,不过不能生成对应的音标,每个单词后面均是个全角空格
在"谷歌金山词霸合作版"中,在输入框中输入单词后,并不能直接找到该单词的音标,要点击"查词"或按回车键才能找到其音标,不知是不是这样的原因才造成不能生成对应的音标?能否请守版根据这种情况帮忙修改您原来的代码?
按回车键后的界面如下:

[ 本帖最后由 tangqingfu 于 2009-1-1 21:54 编辑 ]

qazxswedc · 发表于 2009-1-2 20:23

谢谢守柔老大，感激中

tangqingfu · 发表于 2009-1-2 21:46

顶一下,请守版和其他网友帮忙,帮忙测试一下,如何解决我出现的24楼问题.

守柔 · 发表于 2009-1-3 15:27

原帖由 tangqingfu 于 2009-1-2 21:46 发表
顶一下,请守版和其他网友帮忙,帮忙测试一下,如何解决我出现的24楼问题.

TO tangqingfu:
清福兄:
从早到现在,大概工作了6个小时,希望能解决你提出的问题,无果.
此程序不同金山词霸,它的"Internet Explorer_Server"类,我无法取得它的句柄,当然无法获取其中的文本.
这个东东貌似简单,我使用API,只有最后一步,就是单词所对应的"ListBox"中的内容无法获得,此"ListBox"即为类"Internet Explorer_Server",要想在这里玩,很难,已超过我的知识范畴了,也许,需要专业的玩家了.
如果必须要,建议你安装词霸2003.
这个问题,也许要等若干时间后,我的API水平在上一层楼时,再去考虑解决了.

tangqingfu · 发表于 2009-1-4 09:28

谢谢守版,守版辛苦了!
下了金山词霸2003,测试成功!

[ 本帖最后由 tangqingfu 于 2009-1-4 09:51 编辑 ]

vvvvv1 · 发表于 2009-2-13 22:41

太牛了自叹不如

		自动登录	找回密码
密码			免费注册