转:WORD调用Excel的“文本到语音”功能,让WORD有声朗诵

WORD调用Excel的“文本到语音”功能,让WORD有声朗诵 document.title="WORD调用Excel的“文本到语音”功能,让WORD有声朗诵 - "+document.title
　　基本思想：利用VBA代码调用Excel中自带的“文本到语音”功能。
　　
　　在Word中键入“Alt+F11”组合键，打开Visual Basic编辑器, 创建一个名为ReadRec的宏，代码如下：
　　
　　Sub ReadSelection()
　　　　Excel.Application.speech.speak Selection
　　End Sub
　　
　　接下来必须建立Word与Excel两程序间的关联。方法是：
单击VBE编辑器窗口中的“工具”菜单，选择“引用”命令，在弹出的“引用-Normal”对话框中选择“Microsoft Excel 11.0 Object Library”复选框，设置完成后单击“确定”按钮，关闭Visual Basic编辑器返回Word窗口。
　　最后将创建的宏拖放到工具栏中。方法是：
　　右击工具栏，选择“自定义”命令，切换到“命令”选项卡，在“类别”中选择“宏”，将命令中的“Normal NewMacros.ReadSelection”拖放到工具栏中就可以使用了，同时最好给该按钮更改一下按钮的“命名”（如“阅读文档”）和默认的按钮图像（在未关闭“自定义”对话框时右击工具栏中的该按钮就可以进行相应的设置了），这样就更加方便我们使用了。
　　使用时，选中需要阅读的文本，然后再单击工具栏中的“阅读文档”按钮，这时我们就可以听到语音阅读了