[已解决]中文发音代码

suxiong

比如A1单元格的值为"你好"

我想运行宏后语音播放"你好"，能做到吧。

CreateObject("sapi.spvoice")可以支持英文，但不能支持中文，而且英文播放的时候还没有停顿。

最佳答案

月排行榜 / 总排行榜

爱疯

2013-9-2 19:44

Sub test2()
Dim x As Object
Set x = CreateObject("sapi.spvoice")
x.Speak "你好"
End Sub


我是w7+10，可听到中文。不知楼主的是什么
如果为解决实际问题，就用4楼的方法好了

跳转到最佳答案楼层

chensir

EXECEL本身就有朗读单元格的功能

suxiong

chensir 发表于 2013-9-2 17:39
EXECEL本身就有朗读单元格的功能

功能在哪里？怎么调出来使用呢？？？谢谢

sliang28

试一下这个,这个支持中文.
版本07及以上

1. Application.Speech.Speak Range("a1")

复制代码

爱疯

Sub test2()
Dim x As Object
Set x = CreateObject("sapi.spvoice")
x.Speak "你好"
End Sub


我是w7+10，可听到中文。不知楼主的是什么
如果为解决实际问题，就用4楼的方法好了

suxiong

爱疯 发表于 2013-9-2 19:44
Sub test2()
Dim x As Object
Set x = CreateObject("sapi.spvoice")

嗯，谢谢 ！w7是可以。

我是XP，不得行！

suxiong

sliang28 发表于 2013-9-2 19:06
试一下这个,这个支持中文.
版本07及以上

不支持中文呢。也只是英文

是不是少了什么中文发音基本库呢

爱疯

参考：http://club.excelhome.net/thread-725304-1-1.html
百度：http://zhidao.baidu.com/link?url ... xqyoVQ67Rv1oP6D2xWa
安装文件：http://download.microsoft.com/do ... chSDK51LangPack.exe

我不是XP的，没试

sliang28

suxiong 发表于 2013-9-2 19:49
不支持中文呢。也只是英文

是不是少了什么中文发音基本库呢

我这里可以的,我也不清楚你那里为什么不行,你03版本?

suxiong

sliang28 发表于 2013-9-2 19:59
我这里可以的,我也不清楚你那里为什么不行,你03版本?

你是XP吗？我是2010！