关于用VBA进行语音朗读

cijixxb

在A1到A10单元格分别有一句话，我想先读A1单元格，然后停顿3秒，再读A2单元格，再停顿3秒，再读A3单元格，这样直至读到A10单元格，请教VBA应怎样编？谢谢！

bajifeng

上传一下附件，不知道你要朗读什么？

bajifeng

1. Sub 朗读A列间隔3秒() 'bajifeng
   
2. For i = 1 To 10
   
3.     s = Cells(i, "a")
   
4.     Application.Speech.Speak s
   
5.     newHour = Hour(Now())
   
6.     newMinute = Minute(Now())
   
7.     newSecond = Second(Now()) + 3
   
8.     waitTime = TimeSerial(newHour, newMinute, newSecond)
   
9.     Application.Wait waitTime
   
10. Next
    
11. End Sub

复制代码

bajifeng

>>>>>>>>>>>

cijixxb

bajifeng 发表于 2016-1-14 21:14
上传一下附件，不知道你要朗读什么？

您好！A1到A10单元格分别是一句普通的话。想从A1朗读到A10，在每句话中间能停顿3秒，不是不间断的连续朗读。

cijixxb

bajifeng 发表于 2016-1-14 21:17

很好用，非常感谢您！

bajifeng

好用就好，有问题跟贴回复，建议以后上传附件问问题，方便朋友们帮助你。

cijixxb

好的，谢谢您！

ljpmqb888

bajifeng 发表于 2016-1-14 21:18
>>>>>>>>>>>

这个很好，如果能在单元格中有设置控制“朗读速度”（语速有+10到-10共20个档位）和间隔时间（精确到0.01），再加个停止和暂停等按钮就更完美了！！希望老师直接写出来！！

dongdonggege

bajifeng 发表于 2016-1-14 21:18
>>>>>>>>>>>

我的不行吗！提示：“应用程序定义或对象定义错误”，如果把“Application.Speech.Speak s”换成CreateObject("SAPI.SpVoice").Speak s，就行了。