Hi Chip and everyone,
The success I had with the code snipit was using a SAPI voice, VW-Kate,
which comes bundled with Kurzweil 1000.
hth,
Rod
On 6/20/14 4:23 PM, Chip Orange wrote:
Yes; it worked also for me, but I'm guessing we're all using Eloquence, but I'm
guessing David is using something else?
I suspect whether it works or not is highly dependent upon which synthesizer is
being used. This is what I found when I was trying to change the sound of the
voice; I got it to work with Eloquence and Dectalk, but I think it usually
didn't work for me with SAPI or any of the others.
David, I have routines for changing voice parameters in the Word Advanced Features app in an object named
"SpeechParameters", and you could have a look at them to see if they help you. I had to add a
"DoEvents" command when I was changing some attribute, as well as a small "sleep" like
Kevin is suggesting.
Chip
-----Original Message-----
From: Jeff Weiss [mailto:[email protected]]
Sent: Friday, June 20, 2014 11:03 AM
To: [email protected]
Subject: RE: Temporarily slowing down speech rate, what am I doing wrong?
David, I put this in a function and it seems to work just fine.
I made it slower--rate 20 to emphasize the difference.
Here is the app:
' rate change
Dim myHotkey : Set myHotkey =
Keyboard.RegisterHotkey("Alt-Control-Shift-I","Funct")
Function Funct()
ActiveSettings.Screen.Rate = 50
Speak "This text is spoken with normal speed"
ActiveSettings.Screen.Rate = 20 'Attempting to slow down speech.
Speak "but we also can have it done more lazily."
ActiveSettings.Screen.Rate = 50 'Back to normal.
Speak "Yet, we will keep things the good old way."
End Function
Jeff Weiss
-----Original Message-----
From: Kevin Huber [mailto:[email protected]]
Sent: Friday, June 20, 2014 9:43 AM
To: [email protected]
Subject: Re: Temporarily slowing down speech rate, what am I doing wrong?
Hi David:
Did you try putting Sleep commands after the Rate statements like sleep 30 or
sleep 50
I'm just guessing, but those sleep commands may give Window-eyes to respond to
the rate commands.
I have done this in my scripts and sometimes it had an effect but sometimes it
didn't, I'm not sure why, but it might be worth a try.
You can increase or decrease the number to whatever works.
Kevin Huber
On 6/19/14, David <[email protected]> wrote:
'---Code snip---
ActiveSettings.Screen.Rate = 50 'Now we are sure what we have for an
outset.
Speak "This text is spoken with normal speed"
ActiveSettings.Screen.Rate = 30 'Attempting to slow down speech.
Speak "but we also can have it done more lazily."
ActiveSettings.Screen.Rate = 50 'Back to normal.
Speak "Yet, we will keep things the good old way."
'---End Of Snip---
Guys,
I have inserted a small snip of a code, above. When running this code,
I had it perform the middle SPEAK command in a slower rate, but only once.
Why it worked once, I have been unable to determine. I have run it
numerous times, and the rate does not slow down. I tried with some
sleep commands, both ahead of - and behind - the ActiveSettings instructions.
All the sleep command did, was to insert initial pause before the
speech would ever start out.
Am I doing something wrong in my code? Did I miss some instructions?
Or, is my idea of being able to slow down in the middle of a line of
speak commands, totally lost behind any possibility?
Thanks for any feedback and suggestions, that might lead me on the
right track.
