Office中国论坛/Access中国论坛

标题: 如何让ACCESS也可说话？ [打印本页]

作者: sxgaobo 时间: 2003-7-17 00:03
标题: 如何让ACCESS也可说话？
我在第26期“电脑报”（28版）上看到一篇“让WORD 2002 [开口说话]”的文章，试了可以，我想EXCEL和WORD都可说话，那ACCESS一定也可以，可我不会做，那位朋友能行？
具体方法：先引用“MICROSOFT EXCEL 10.0 OBJECT LIBRARY”，再建一模块，代码如下：
option Explicit
Dim myobject as object
sub 朗读文本（）
set myobject = new excel.application
myobject.speech.speak (activewindow.selection)
set myobject = nothing
end sub

[此贴子已经被作者于2003-7-28 15:27:07编辑过]

作者: zhuyiwen 时间: 2003-7-17 01:07
这是MS的OFIICE第一期竞赛试题, 本论坛有标准答案, 请查找

作者: sxgaobo 时间: 2003-7-17 02:09
zhuyiwen 你好!
在那里有第一期的答案啊?首页上只有第二期的答案啊!

作者: cg1 时间: 2003-7-17 05:28
access朗读任意文本/使Access真人发声《OA》

作者：ec
2003-3-30 16:56:41

〖摘自 access911.net 文章区〗

语音

Option Compare Database
Dim xl As Object

Private Sub Command0_Click()
'需要引用excel object
xl.Speech.Speak (文本0.Value)
End Sub

Private Sub Form_Open(Cancel As Integer)
Set xl = New Excel.Application

End Sub

Private Sub 文本0_KeyDown(KeyCode As Integer, Shift As Integer)
xl.Speech.Speak (Chr(KeyCode))

End Sub

作者: sunredday 时间: 2003-7-17 05:51
2000 行吗？

作者: zhuyiwen 时间: 2003-7-17 18:04

以下是引用sunredday在2003-7-16 21:51:11的发言：
2000 行吗？

2000不能

作者: sxgaobo 时间: 2003-7-17 18:20
谢谢cg1
我试了不行啊！我想做成这样的；在文本框输入内容后即更新事件后读出输入的内容，该如何做啊！请你即各位朋友帮忙，解释的详细些好吗？

作者: sxgaobo 时间: 2003-7-18 01:54
有会的朋友吗?

作者: zhuyiwen 时间: 2003-7-28 23:49
[attach]1268[/attach]

注:本例只适用OFFICE XP

[em24]

作者: sxgaobo 时间: 2003-7-29 18:03
谢谢zhuyiwen 非常感谢！！！
搞定

作者: sxgaobo 时间: 2005-9-23 16:46
能使发声变为女声吗？可有知道如何设置的朋友。

作者: dengjian 时间: 2005-9-23 18:39
其实完全可以不必通过excel来绕圈圈，直接使用语音功能一样行，语音功能在office中是通用的。请在模块最前面加上如下声明：dim voice as spvoice然后在过程中设置变量：set voice =new spvoice这样即可使用语音功能了。当然前提条件是要设置引用。

作者: sxgaobo 时间: 2005-9-23 19:27
可以设置男、女声吗？

作者: dengjian 时间: 2005-9-23 22:41
要看下一个office版本了。

作者: 好妹 时间: 2005-9-23 23:45
标题: 谢谢
谢谢！

作者: sxgaobo 时间: 2005-9-24 02:15

以下是引用dengjian在2005-9-23 14:41:00的发言：

要看下一个office版本了。

office xp 可否？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)