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