怎样让WORD文字阅读出声音
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/25 20:46:46
怎样让WORD文字阅读出声音
怎样让WORD文字阅读出声音
怎样让WORD文字阅读出声音
这个可以用VBA来帮忙~请参考如下步骤：
1、在Word里面选中需要阅读的文字；
2、键入Alt+F11切换到VBA编辑环境；
3、选择菜单“工具 - 引用”,在“可使用的引用”列表里面找到“Microsoft Speech Object Library”并勾上,确定；
4、键入Ctrl+R激活左边的工程面板,选中“Normal”；
5、选择菜单“插入 - 模块”,然后在代码编辑区里面粘贴如下代码：
Option Explicit
Dim g_oSpeech As SpVoice
Sub SpeakText()
On Error Resume Next
Set g_oSpeech = New SpVoice
If Len(Selection.Text) > 1 Then
g_oSpeech.Speak Selection.Text,SVSFlagsAsync + SVSFPurgeBeforeSpeak
Else
g_oSpeech.Speak ActiveDocument.Range(0,ActiveDocument.Characters.Count).Text,SVSFlagsAsync + SVSFPurgeBeforeSpeak
End If
Do
DoEvents
Loop Until g_oSpeech.WaitUntilDone(10)
Set g_oSpeech = Nothing
End Sub
Sub StopSpeaking()
On Error Resume Next
g_oSpeech.Speak vbNullString,SVSFPurgeBeforeSpeak
Set g_oSpeech = Nothing
End Sub
6、把鼠标光标在 Sub SpeakText 这一行上点一下,然后键入F5运行,就可以听到电脑把你在文档里面选中的文字读了出来.
7、你还可以进一步把代码里面这两个宏（SpeakText是开始朗读,StopSpeaking是停止阅读）指定到工具栏按钮或者快捷键,这样以后需要的时候只需点一下按钮或者键入快捷键即可.
如果有什么问题可以和我进一步联系.