怎样让WORD文字阅读出声音
1个回答

这个可以用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是停止阅读)指定到工具栏按钮或者快捷键,这样以后需要的时候只需点一下按钮或者键入快捷键即可.

如果有什么问题可以和我进一步联系.