如何让ACCESS也可说话？

sxgaobo

我在第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

这是MS的OFIICE第一期竞赛试题, 本论坛有标准答案, 请查找

sxgaobo

zhuyiwen 你好!
    在那里有第一期的答案啊?首页上只有第二期的答案啊!

cg1

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

2000 行吗？

zhuyiwen

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

2000不能

sxgaobo

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

sxgaobo

有会的朋友吗?

zhuyiwen

注:本例只适用OFFICE XP

[em24]

sxgaobo

谢谢zhuyiwen 非常感谢！！！
搞定