excel VBA会说话的工作表

excel VBA会说话的工作表

今天给大家分享一个excel中有趣的功能，文本转语音的功能，使用了微软的TTS 语言引擎。

语法格式 ：表达式.Speak(Text, SpeakAsync, SpeakXML, Purge)
表达式是speech object 对象，第一个参数为string类型的文本，后面3个参数默认值都是False

用法：Application.Speech.Speak “文本”

将一篇古文放到excel表的单元格中（蜀道难），内容格式是纯文本格式，选中此单元格，运行代码

废话少说 ，直接上代码

Sub SpearkContents()
    Dim content As String
       
    content = ActiveCell.Value  '获取单元格文本
        
    If content = "" Then  '选择有内容的单元格
        MsgBox "please select a valid cell including contents"
        Exit Sub
    End If
    Application.Speech.Speak content

End Sub

辛苦的码农们，闲来听一首古文来放松一下吧，个人测试效果还不错，对于多音字来说可能无法按预期读音读出。