在Excel 2003中有一個(gè)“文本到語(yǔ)音”的功能，使用此功能可以完成語(yǔ)言校對(duì)，但是在Word 2003中卻沒(méi)有此項(xiàng)功能。其實(shí)我們可以在Word中使用VBA代碼調(diào)用Excel的“文本到語(yǔ)音”功能。

　　1.代碼的編寫


　　打開Word 2003，點(diǎn)擊“工具→宏→宏”菜單命令，這時(shí)出現(xiàn)“宏”對(duì)話框，將“宏”命名為“語(yǔ)音校對(duì)”，“宏的位置”設(shè)為“所有的活動(dòng)模板和文檔”。再點(diǎn)擊[創(chuàng)建]按鈕，此時(shí)出現(xiàn)“代碼”窗口，在其中輸入下面的代碼：

　　Sub語(yǔ)音校對(duì)()

　　Excel.Application.speech.speak Selection‘朗讀選中的單元格內(nèi)容

　　End Sub

　　2.建立與Excel之間的聯(lián)系

　　點(diǎn)擊菜單欄上的“工具→引用”菜單命令，在出現(xiàn)的窗口中選瘛癕icrosoft Excel 11.0 Object Library”項(xiàng)，再點(diǎn)擊[確定]按鈕，最后點(diǎn)擊“文件→保存”菜單命令。

　　3.工具按鈕的制作

　　通過(guò)點(diǎn)擊“文件→關(guān)閉并返回到Microsoft Word”菜單命令返回到Word界面，然后點(diǎn)擊“視圖→工具欄→自定義”菜單命令，出現(xiàn)“自定義”對(duì)話框，選中“命令”標(biāo)簽，在“類別”清單內(nèi)點(diǎn)擊“宏”，再將右邊“命令”清單中的“Normal.NewMacros.語(yǔ)音校對(duì)”拖到菜單欄上，使之成為Word菜單欄上的一個(gè)菜單。

　　好了，現(xiàn)在可以選取一段文字，點(diǎn)擊菜單欄上的“Normal.NewMacros.語(yǔ)音校對(duì)”項(xiàng)，是不是聽到了朗讀聲？