关于用VBA进行语音朗读

qinkeng

dongdonggege 发表于 2016-4-30 11:12
我的不行吗！提示：“应用程序定义或对象定义错误”，如果把“Application.Speech.Speak s”换成CreateOb ...

能具体点 说一下 怎么控制速度么？

qinkeng

dongdonggege 发表于 2016-4-30 11:12
我的不行吗！提示：“应用程序定义或对象定义错误”，如果把“Application.Speech.Speak s”换成CreateOb ...

能具体 说明一下 在哪里增加参数   才能控制速度呢？

qinkeng

1. Sub bajifeng()
   
2. Dim objSV
   
3. Set objSV = CreateObject("SAPI.SpVoice")
   
4. For i = 1 To 10
   
5.     s = Cells(i, "a")
   
6.     objSV.Speak s
   
7.     objSV.Rate = 0
   
8.     newHour = Hour(Now())
   
9.     newMinute = Minute(Now())
   
10.     newSecond = Second(Now()) + 1
    
11.     waitTime = TimeSerial(newHour, newMinute, newSecond)
    
12.     Application.Wait waitTime
    
13. Next
    
14. End Sub
    

复制代码

在这里调语速   正数加速  负数减速  0为正常语速  objSV.Rate = 0

7176386

1. 
   
2. Sub delay()
   
3. 
   
4. '前面的代码到此
   
5. 
   
6. t = Timer
   
7. 
   
8. Do While Timer - 0.5 < t
   
9. 
   
10. Debug.Print
    
11. 
    
12. Loop
    
13. 
    
14. '后面的代码继续
    
15. 
    
16. End Sub
    

复制代码

7176386

1. Sub aa()
   
2. 
   
3. Dim S As Single
   
4. 
   
5. S = Timer
   
6. 
   
7. If Application.Wait(Now + TimeValue("0:00:05") / 10) Then MsgBox "耗时" & Format(Timer - S, "0.##") & "s"
   
8. 
   
9. End Sub
   

复制代码

7176386

1. API函数sleep（）
   
2. 功能暂停执行，参数单位毫秒
   
3. 如：sleep(1000) 暂停1秒
   
4. Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

复制代码

qinkeng

7176386 发表于 2016-4-30 11:45

如果是 要朗读 a1：c10之间的内容  又该怎么写代码呢？

ljpmqb888

7176386 发表于 2016-4-30 11:45

最好直接给写好，传个附件。这些设置的数值最好能指向单元格。直接修改单元格的界面就行了。

lujkhua

间隔3秒朗读A1到A10

1. Private Declare Function SleepEx Lib "kernel32" (ByVal dwMilliseconds As Long, ByVal bAlertable As Long) As Long
   
2. Sub 朗读A列间隔3秒()
   
3.     Dim Voice As Object
   
4.     For i = 1 To 10
   
5.         s = Cells(i, "a")
   
6.         Set Voice = CreateObject("sapi.spvoice")
   
7.         Set Voice.Voice = Voice.GetVoices("", "Language=804").Item(0)  ' 中文朗读
   
8.         SleepEx 3000, False
   
9.         Voice.Speak s, SVSFlagsAsync
   
10.     Next
    
11. End Sub

复制代码

ljpmqb888

lujkhua 发表于 2016-5-2 13:16
间隔3秒朗读A1到A10

做个控制的界面怎么弄？最好速度，音量，发音人等项目都能在界面修改！！