在WORD中使用文本到语音的功能.docVIP

利用Excel 2003中的“文本到语音”的功能，在Word 2003中朗读文本。方法：在Word中使用VBA代码调用Excel的“文本到语音”功能。 一、在WORD中编写代码 打开Word 2003，“工具”菜单下“宏”命令下的子命令“宏”，在“宏”对话框中，为“宏”命名为“语音校对”，“宏的位置”设为“所有的活动模板和文档”。再点击“创建”按钮，见 REF _Ref \h \* MERGEFORMAT 图 1。当出现“代码”窗口时，在其中输入下面的代码：（见 REF _Ref \h \* MERGEFORMAT 图 2） Sub语音校对() Excel.Application.speech.speak Selection End Sub 图 SEQ 图 \* ARABIC 1 图 SEQ 图 \* ARABIC 2 二、建立与Excel之间的联系 在 REF _Ref \h \* MERGEFORMAT 图 2中点击“工具”菜单中的“引用”命令，在出现的窗口（ REF _Ref \h \* MERGEFORMAT 图 3）中选择“Microsoft Excel 11.0 Object Library”项，再点击“确定”按钮，最后点击 REF _Ref \h \* MERGEFORMAT 图 2中“文件”菜单下的“保存”命令。 图 SEQ 图 \* ARABIC 3 三、工具按钮的制作 点击 REF _Ref \h \* MERGEFORMAT 图 2中“文件”菜单的“关闭并返回到Microsoft Word”命令，返回到Word界面。在WORD中然后点击“视图”菜单的“工具栏→自定义”命令，在“自定义”对话框，选中“命令”标签，在“类别”清单内点击“宏”，再将右边“命令”清单中的“Normal.NewMacros.语音校对”拖到菜单栏上，使之成为Word菜单栏上的一个菜单，见 REF _Ref \h \* MERGEFORMAT 图 4。 图 SEQ 图 \* ARABIC 4 在“Normal.NewMacros.语音校对”按钮上点击鼠标右键，选择“更改按钮图像”下的按钮图标，见 REF _Ref \h \* MERGEFORMAT 图 5。 图 SEQ 图 \* ARABIC 5 好了，现在可以选取一段文字，然后点击工具栏上的图标，就可以朗读了。 提示您需要注意的是：朗读过程将不能人为中止。因此，尽量选取较少范围的文本内容进行朗读。