tts语音朗读怎样运用在ppt上？neospeech

tts语音朗读怎样运用在ppt上？比如，要读Slide1中每个文本框中的内容，可以在本页建1个命令按钮，如下读取本页文本框中的内容， Private Sub CommandButton1_Click()Set mySP = CreateObject("SAPI.SpVoice")For Each tt In Slide1.Shapes If tt.AlternativeText <> "" Then mySP.speak tt.TextFrame.TextRange.Text End IfNext Set mySP

1. tts语音朗读怎样运用在ppt上？

tts语音朗读怎样运用在ppt上？

比如，要读Slide1中每个文本框中的内容，可以在本页建1个命令按钮。如下读取本页文本框中的内容。 Private Sub CommandButton1_Click()Set mySP = CreateObject("SAPI.SpVoice")For Each tt In Slide1.Shapes If tt.AlternativeText <> "" Then mySP.speak tt.TextFrame.TextRange.Text End IfNext Set mySP = NothingEnd Sub 另外要装1个好的TTS，比如NeoSpeech TTS，读取效果才能称心。测试tts读PPT.ppt大小：81.5K 已经过百度安全检测,放心下载点击下载