让电脑说话的七种方法

weiyingde

让电脑说话的五种方法
一、准备：
1、安装文本到语音——ScanSoft_MeiLing_ChineseMandarinVoice.msi
2、开始——设置——控制面板——声音、语音和音频设备——语音识别——选择——SAPI Developer
Sample Engine或者Microsoft English Recognizer v5.1），文字语音转换——选择ScanSoft Mei-Ling_Full_22kHz。
二、方法：
1、开始——运行——mshta vbscript:createobject("sapi.spvoice").speak("“中华人民共和国义务教育法。”")(window.close)。
2、开始—程序—附件—命令提示符—
mshta vbscript:createobject("sapi.spvoice").speak("“中华人民共和国义务教育法。”")(window.close)—回车
3、在Excel中说话：application.speech.speak “中华人民共和国义务教育法。 "
4、在powerpiont说话：createobject("sapi.spvoice").speak “中华人民共和国义务教育法。”
5、新建一个text文档，在文档中写上：CreateObject("SAPI.SpVoice").Speak “中华人民共和国义务教育法。”，然后将后缀由“txt”改为“vbs”，双击这个文件即可朗读。
另外还有：
6、在powerpoint中写入代码：Excel.application.speech.speak “中华人民共和国义务教育法。”
  也可以，但要在“工具”中调出“microsoft Excel ……”的引用。
7、在word中写入代码：Excel.application.speech.speak “中华人民共和国义务教育法。”
  也可以，但要在“工具”中调出“microsoft Excel ……”的引用。       其中7、8也可以采取先绑定的方式，如：
  yy = CreateObject("Excel.Application")
  yy.speech.speak  “中华人民共和国义务教育法。”




补充内容 (2016-10-12 13:44):
若是2013还可以：
=FILTERXML(WEBSERVICE("http://fanyi.youdao.com/translate?&i="&A2&"&doctype=xml&version"),"//translation")

bajifeng

哇塞，不错，又学会了新技术，以前不怎么用这些东西。

bajifeng

把这条 3、在Excel中说话：application.speech.speak “中华人民共和国义务教育法。 " 记下来了，其他先不研究了，哈哈。

ljpmqb888

我想中文朗读A2单元格中的数字，应该怎么写？请老师给指教！！谢谢！！

weiyingde

如果在excel环境下应该写作：
application.speech.speak sheets(1).range("A2").text

dongdonggege

Private Sub CommandButton1_Click()
CreateObject("sapi.spvoice").speak "中华人民共和国义务教育法"
End Sub
activex部件不能创建对象，什么原因？

heiyu25

这个蛮牛的，没试过

weiyingde

重新注册一下

tmh000614

我像看天书。

szkent

application.speech.speak "       ",True
后面加上参数 True ，即为异步朗读。不会等待朗读读完，不会影响前台操作。