双击即可根据您设置的语速及音量读出“Hello,开源中国”。
Set objVoice = CreateObject("SAPI.SpVoice")
'Set objVoice.Voice = objVoice.GetVoices("Name=Microsoft Simplified Chinese").Item(0)
objVoice.Rate = -3 '速度:-10,10 0
objVoice.Volume = 100 '音量:0,100 100
objVoice.Speak "Hello,开源中国"