office軟體中將文本的內容變成聲音輸出

所謂讓文本發聲是指將文本的內容變成聲音輸出，即讓電腦讀出文本的內容。這個功能在實際的教學工作中無疑是很有用的。在Office XP的Excel中，就有“從文本到語音”的功能，但必須在Excel環境下才能實現，這就給我們應用該功能帶來了不便。由此，筆者考慮能否開發出脫離Excel環境，讓任意文本都會發聲的程式。通過實踐，筆者用VB6．0開發了“文本朗讀”的程式。下面對開發過程做一簡單的介紹。

1．總體思路

先建立一個標準EXE工程，在表單上建立三個命令按鈕控制項、一個通用對話方塊控制項和一個Richtextbox控制項，然後通過[開啟檔案]按鈕的觸發事件，選擇要朗讀的文字檔，把常值內容輸出到Richtextbox框中，再通過[開始朗讀]按鈕觸發事件，同時調用Excel對象的語音方案，將Richtextbox框中的文本全部朗讀出來。

2．準備工作

首先要在電腦上安裝好Office XP，在安裝過程中要將語音功能安裝上。然後利用“控制台”上的“語音”項目展開“語音屬性”對話方塊，進行語言的選擇，在下拉框中選擇“Microsoft Simplified Chinese”，即選擇中文語音功能，否則，只能讀出英文而讀不出中文。還可以在此對話方塊中設定電腦產生的不同語音以及語音速度。

其次，在VB6.0中，要引用通用對話方塊和Richtextbox兩個組件。

3．對話方塊和控制項的建立

(1)建立一個標準EXE工程，命名為“Txtsound”，對話方塊命名為“Frmsound”。

(2)在對話方塊上布置一個Richtextbox控制項和標籤控制項，名稱分別為Richt和LeBT。

(3)再在對話方塊上添加三個命令按鈕，第一個是[開啟檔案]按鈕，命名為CmdOpen；第二個是[開始朗讀]按鈕，命名為CmdRead；第三個是[退出]按鈕，命名為CmdExit。

(4)最後在對話方塊上添加一個通用對話方塊，命名為ComD，其Filter屬性設為“.txt,.rtf”。