[分享]语音朗读

wshcw

问题解决,谢谢老师.

wshcw

语音朗读不了,宏又被锁定,所以还是用不了,请守老大重新发个附件.

守柔

原帖由 wshcw 于 2009-1-9 13:20 发表
语音朗读不了,宏又被锁定,请守老大重新发个附件,或贴出完整代码.

Option Explicit
Sub mySpeak()
    Dim myRange As Range
    Dim myExcel As Object
    Dim xlSpeech As Object
    Set myExcel = CreateObject("Excel.Application")
    Set xlSpeech = myExcel.Speech
    If Selection.Type = wdSelectionIP Then
        Set myRange = ActiveDocument.Content
    Else
        Set myRange = Selection.Range
    End If
    xlSpeech.Speak myRange.Text
    Set xlSpeech = Nothing
End Sub

wshcw

语音朗读不了,宏又被锁定,请守老大重新发个附件,或贴出完整代码.

wshcw

守柔老师:
文章太长时,朗读能否让他停一下来(即手动停止的宏)
另外,语音声音较沉闷,没有清脆的感觉,能否替换windowsxp的语音朗读库文件?

zhangjjliumin

学习中，谢谢分享。