Adding Text to Speech to Microsoft Word 2007 Tutorial

[DryBONESreborn]

lol you su---. Just drops off for speaking. lol Darn you messed up voice issues. :) I wonder if you can get any patches.

[ottivadkrsr]

got it work excellent

[ottivadkrsr]

any way to get all the code in one file?

[fish25pizza]

mine says sintax error any help?

[TonyJeffers]

It worked.....woot! super stoked!

[emnog]

I've tried this on Office 2010 and it works. (I know, there is a speak button available but there is no pause button). As was said before remember to delete the underlines signs and to put [speech.Speak ActiveDocument.Range(0, ActiveDocument.Characters.Coun­t).Text, SVSFlagsAsync + SVSFPurgeBeforeSpeak] in one single line (without the [ ] ) and everithing works fine.

[CultureShockSix]

It worked. Thanks a bunch! FYI - the StartTTS Macro needs an extra "End If" at the end; so it has two "End If"'s overall. I.e.: Sub startTTS() On Error Resume Next If i = 0 Then Set speech = New SpVoice If Len(Selection.Text) > 1 Then 'speak selection speech.Speak Selection.Text, SVSFlagsAsync + SVSFPurgeBeforeSpeak Else 'speak whole document speech.Speak ActiveDocument.Range(0, ActiveDocument.Characters.Coun­t).Text, SVSFlagsAsync + SVSFPurgeBeforeSpeak End If End If End Sub

[hassanm97]

frm were do you get the text in 3:34? pls reply

[IronHide1232]

I need help. it says compile error then highlights " speech.Speak ActiveDocument.Range(0, _ ActiveDocument.Characters.Coun­t).Text, _ SVSFlagsAsync + SVSFPurgeBeforeSpeak" (quotes were not included in the highlighted part.) did i copy it worng or something?

please help

[tdla08]

It worked. It really worked. It did take some fooling around with it, probably more like and hour but I finally got it to work.

Thank you, Thank you, Thank you :o)

I'm an author and just bought a new computer. I use this feature of MS Word every single day and I'm glad I don't have to upgrade to MS 2010 just to use it.

You Rock :o)

[sighisoaraa]

It's too complicated.

[relxerd1978]

Did NOT work. Pissed with this for over an hour. Waste of time

[number1HATERs]

fuuck you

[MRLT409]

mine says variable not defined and highlights Selection out of If Len(Selection.Text) > 1 Then.....and yes i agree posting does suck terribly. Could you pm me the code that i can put in there? I would really like to get this working. Thanks

[vknight1]

Forget it, POSTING SUCKS, it's there, syntax works, becareful with spaces and returns.

[vknight1]

Sorry fixed the spaces and returns, posting sucks. +++++++++++++++ On Error Resume Next If i = 0 Then Set speech = New SpVoice If Len(Selection.Text) > 1 Then 'speak selection speech.Speak Selection.Text, SVSFlagsAsync + SVSFPurgeBeforeSpeak Else 'speak whole document (speech.Speak ActiveDocument.Range(0, ActiveDocument.Characters.Coun­­t).Text, SVSFlagsAsync + SVSFPurgeBeforeSpeak)<--- "ALL ONE LINE, leave out ()" End If

[vknight1]

On Error Resume Next

If i = 0 Then

Set speech = New SpVoice

If Len(Selection.Text) > 1 Then 'speak selection

speech.Speak Selection.Text, SVSFlagsAsync + SVSFPurgeBeforeSpeak Else 'speak whole document

(speech.Speak ActiveDocument.Range(0, ActiveDocument.Characters.Coun­t).Text, SVSFlagsAsync + SVSFPurgeBeforeSpeak)<--- "ALL ONE LINE, leave out ()"

End If

[vknight1]

REPLACE WITH THIS CODING:

+++++++++++++++++++++++++

On Error Resume Next

If i = 0 Then Set speech = New SpVoice If Len(Selection.Text) > 1 Then 'speak selection speech.Speak Selection.Text, SVSFlagsAsync + SVSFPurgeBeforeSpeak Else 'speak whole document speech.Speak ActiveDocument.Range(0, ActiveDocument.Characters.Coun­t).Text, SVSFlagsAsync + SVSFPurgeBeforeSpeak End If

[Improviz]

I get the same error, seems to not like something in there. Replaced the # in "If Len(Selection.Text) # 1" changed to "> 1".

Also you have to delete the _ characters then save/quit VB. Then it works fine.

[MadComrad]

I mess around with this in the library to freak everyone out.

Today the girl siting next to me (Anna) was freaked out when I said. "Anna we are coming for you!" Hahaha

[sijoeu]

Thank you so very much, you are a life saver

:-)

[arielmnboy]

( I am not spamming, I am just helping)If you want a better voice then Anna watch my youtube video showing how to get kate and crystals voice for free.

watch?v=5Xz8ZKnLHc4

[markgeeseblanco]

Thanks so much. Worked exactly as described. I'm glad you were willing to share this with others to help them, as opposed to some posters who only condescend those without as much knowledge as them.

[Sassygrl99]

thanks! This really worked!

[davonc]

Awesome video!!!!!

[Mrflyman2000]

If anybody does not know this then you guys don't know IT. It's coding that you guys need to learn, when u have achieved this then it will work. It's > 1 and no _ should be included in the coding :)

[SATHYABEEEE]

AWESOME <3 respect

[anguraj69]

you are the most horrible person i have come across.... stop doing videos because you are not helping them but troubling them.... please stop it for goodness sack.

[lttlbgft]

I got a "Compile Error and a Syntex Error. It seems to have a problem with"

Sub startTTS()

On Error Resume Next

If i = 0 Then

Set speech = New SpVoice

If Len(Selection.Text) # 1 Then 'speak selection

[lttlbgft]

OK, I see where I have to replace the # sign with a greater than sign but which one. Pointing to the left or right or both, facing one another, opposing one another? I don't know. End of story, it don't work.

[reviaspo]

i could't get it to work it tells me that it canot do it while in break mode i dont know what that means also it propted an erros on the sub start tts() line what did i do wrong ? i followed the tutorial