[已解决]中文发音代码

suxiong

爱疯 发表于 2013-9-2 19:57
参考：http://club.excelhome.net/thread-725304-1-1.html
百度：http://zhidao.baidu.com/link?url=AjRoh ...

好的，我试下！

sliang28

suxiong 发表于 2013-9-3 10:08
你是XP吗？我是2010！

我 Win7 32，那可能是系统差异导致吧！

chensir

可以试试这个           

suxiong

chensir 发表于 2013-9-3 11:35
可以试试这个

好东西。但是中文还是不行。我装了语音包都还是不行。

XP  2010不知道啥 情况。

爱疯

suxiong 发表于 2013-9-4 10:40
好东西。但是中文还是不行。我装了语音包都还是不行。

XP  2010不知道啥 情况。

控制面板-语音-语音选择，能选择你刚装的语音包吗

hhzjxss

我的是XP，2010，只会说英文，不说中文：

测试代码如下：

1. Sub 按钮1_Click()
   
2.     Application.Speech.Speak Range("a1")
   
3.     Application.Speech.Speak Range("a2") 'A2单元格中输入英文“Hello world”'
   
4. End Sub
   
5. 
   
6. Sub 按钮2_Click()
   
7.     Dim x As Object
   
8.     Set x = CreateObject("sapi.spvoice")
   
9.     x.Speak "你好"
   
10.     x.Speak "thank you"
    
11. End Sub
    

复制代码

hhzjxss

让Excel开口说话

suxiong

爱疯 发表于 2013-9-4 11:16
控制面板-语音-语音选择，能选择你刚装的语音包吗

可以选择，但还是没有中中文；

点旁边“设置”有错误提示。

suxiong

hhzjxss 发表于 2013-9-5 09:55
让Excel开口说话

装都装不起呢，一点它就没有东西了。控制面板也没有！

liuguansky

装中文库就可以了。