Thanks Rod; my tests were using 7.5, so it looks like things are improved since then.
I think the slight delays at the correct places, along with the doEvents, are the answer (if anything will be). Chip -----Original Message----- From: Rod Hutton [mailto:rhst...@sympatico.ca] Sent: Friday, June 20, 2014 5:49 PM To: gw-scripting@gwmicro.com Subject: Re: Temporarily slowing down speech rate, what am I doing wrong? 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:jwe...@wsblind.org] > Sent: Friday, June 20, 2014 11:03 AM > To: gw-scripting@gwmicro.com > 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:kevin.hub...@gmail.com] > Sent: Friday, June 20, 2014 9:43 AM > To: gw-scripting@gwmicro.com > 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 <trailerda...@hotmail.com> 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. >> >> >> > > >
