在Excel 2003中有一個“文本到語音”的功能，使用此功能可以完成語言校對，但是在Word 2003中卻沒有此項功能。其實我們可以在Word中使用VBA代碼調(diào)用Excel的“文本到語音”功能。
1.代碼的編寫
打開Word 2003，點擊“工具→宏→宏”菜單命令，這時出現(xiàn)“宏”對話框，將“宏”命名為“語音校對”，“宏的位置”設為“所有的活動模板和文檔”。再點擊[創(chuàng)建]按鈕，此時出現(xiàn)“代碼”窗口，在其中輸入下面的代碼：
Sub語音校對()
Excel.Application.speech.speak Selection‘朗讀選中的單元格內(nèi)容
End Sub
2.建立與Excel之間的聯(lián)系
點擊菜單欄上的“工具→引用”菜單命令，在出現(xiàn)的窗口中選瘛癕icrosoft Excel 11.0 Object Library”項，再點擊[確定]按鈕，最后點擊“文件→保存”菜單命令。
3.工具按鈕的制作
通過點擊“文件→關閉并返回到Microsoft Word”菜單命令返回到Word界面，然后點擊“視圖→工具欄→自定義”菜單命令，出現(xiàn)“自定義”對話框，選中“命令”標簽，在“類別”清單內(nèi)點擊“宏”，再將右邊“命令”清單中的“Normal.NewMacros.語音校對”拖到菜單欄上，使之成為Word菜單欄上的一個菜單。
好了，現(xiàn)在可以選取一段文字，點擊菜單欄上的“Normal.NewMacros.語音校對”項，是不是聽到了朗讀聲？
1.代碼的編寫
打開Word 2003，點擊“工具→宏→宏”菜單命令，這時出現(xiàn)“宏”對話框，將“宏”命名為“語音校對”，“宏的位置”設為“所有的活動模板和文檔”。再點擊[創(chuàng)建]按鈕，此時出現(xiàn)“代碼”窗口，在其中輸入下面的代碼：
Sub語音校對()
Excel.Application.speech.speak Selection‘朗讀選中的單元格內(nèi)容
End Sub
2.建立與Excel之間的聯(lián)系
點擊菜單欄上的“工具→引用”菜單命令，在出現(xiàn)的窗口中選瘛癕icrosoft Excel 11.0 Object Library”項，再點擊[確定]按鈕，最后點擊“文件→保存”菜單命令。
3.工具按鈕的制作
通過點擊“文件→關閉并返回到Microsoft Word”菜單命令返回到Word界面，然后點擊“視圖→工具欄→自定義”菜單命令，出現(xiàn)“自定義”對話框，選中“命令”標簽，在“類別”清單內(nèi)點擊“宏”，再將右邊“命令”清單中的“Normal.NewMacros.語音校對”拖到菜單欄上，使之成為Word菜單欄上的一個菜單。
好了，現(xiàn)在可以選取一段文字，點擊菜單欄上的“Normal.NewMacros.語音校對”項，是不是聽到了朗讀聲？