Suddenly I cannot get .Speak to work without the above error. The macro below worked fine, until it didn't and started getting this error. Suggestions?
Code:
Sub Range()
'
' Range Macro
'
'
Dim rng As Word.Range
Dim SearchString As String
'Dim Speak As SpVoice
Dim Speech As SpeechLib.SpVoice
Set rng = ActiveDocument.Content
Set Speech = New SpVoice
SearchString = """"
With rng.Find
'rng.Find.ClearFormatting
Do While .Execute(findText:=SearchString, Forward:=True) = True
rng.MoveEndUntil (".?,;!")
'Speech.Speak "Hello"
Application.Speech.Speak "speaking", SVSFlagsAsync '+ SVSFPurgeBeforeSpeak
'Speak "speaking", SVSFlagsAsync '+ SVSFPurgeBeforeSpeak
MsgBox rng.Text
Exit Do
rng.Collapse wdCollapseEnd
Loop
End With
End Sub