Download:
speak.vbs - https://www.box.com/s/1f1946821da027b114b0
Dim aaa_speak _
, sClipboard _
, oIE _
, oSh _
, oSAPI _
, zzz_speak
Set oIE=CreateObject("InternetExplorer.Application")
Set oSAPI=CreateObject("SAPI.SpVoice")
Set oSh=CreateObject("WScript.Shell")
oSh.SendKeys "%{Tab}^{Insert}"
oIE.Navigate("about:blank")
sClipboard= _
oIE.document.parentwindow.clipboardData.GetData("text")
oIE.Quit
oSAPI.Speak sClipBoard
Set oSh=Nothing
Set oSAPI=Nothing
WScript.Quit