hi
the only way i have tried and it worked out with me is to create a macro for reading and stop reading the text.
i should refer to source of these information
http://www.gmayor.com/word_text_to_speech.htm
the summary would be
1)open the vba editor in macros( tools-macros-vba editor) or simply(alt+f11)
2)put cheeck mark on (tools-refrences-microsoft speech object library)
2) create a module call it texttospeech in this macro
3)write the following code inside this module
Dim speech as SpVoice 'Don't overlook this line!
Sub SpeakText()
'Based on a macro by Mathew Heikkila
'
On Error Resume Next
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.Count).Text, _
SVSFlagsAsync + SVSFPurgeBeforeSpeak
End If
Do
DoEvents
Loop Until speech.WaitUntilDone(10)
Set speech = Nothing
End Sub
Sub StopSpeaking()
'Based on a macro by Mathew Heikkila
'used to interrupt any running speech to text
On Error Resume Next
speech.Speak vbNullString, SVSFPurgeBeforeSpeak
Set speech = Nothing
End Sub
i hope this would answer your question
wisam khalid
