文章編號: 287120 - 上次校閱: 2006年10月23日 - 版次: 3.1

如何在其他 Office 程式中自動化 Excel 文字到語音

中英文對照顯示按一下這裡顯示機器翻譯的中英文對照
機器翻譯檢視機器翻譯免責聲明
檢視此文章適用的產品。
系統提示本文適用於您使用的作業系統之外的作業系統。與您不相關的文章內容已停用。

在此頁中

全部展開 | 全部摺疊

結論

本文將逐步告訴您如何使用 Microsoft Excel 的文字轉換語音功能包括 Microsoft Word、 Microsoft PowerPoint 和 Microsoft Outlook 的其他程式中。

Microsoft Excel 是唯一具有內建文字轉換語音 (TTS) 功能的 Microsoft Office XP 程式。本文將告訴您，如何使用 OLE 自動化來以程式設計方式存取 Excel 物件模型，並在其他程式中使用文字轉換語音功能。

Microsoft 僅，為了說明提供程式設計範例，不提供任何明示或默示的保證。這包括，但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已熟悉使用我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能，但它們不會修改這些範例以提供附加功能或建構程序，以符合您特定需求。

回此頁最上方

在 PowerPoint 中使用文字轉換語音

下列範例會使用 Excel 物件模型來存取從 PowerPoint 簡報的文字轉換語音。這個程序將示範如何參考，並建立 Excel 物件，才能使用 語音 物件。

將模組插入 PowerPoint 簡報

  1. 開啟 PowerPoint 簡報。
  2. 按下 ALT + F11 即可啟動 [Visual Basic 編輯器]。
  3. 在 插入] 功能表上按一下 [模組]。
  4. 輸入或複製並貼入使用本單元稍後會出現在本章節的範例程式碼。

將參考加入至 Excel 10 物件程式庫

  1. 在 Visual Basic 編輯器] 中，會指向 [工具] 功能表上的 參考。
  2. 在 [可引用的項目，按一下以選取 [Microsoft Excel 10.0 物件程式庫] 核取方塊，然後再按一下 [確定]。

若要自動化 Excel 文字轉換語音從 PowerPoint 的子程序

下列範例會假設您的 PowerPoint 簡報具有兩張投影片。
Sub demoTTS()
    
    'Declare and create an Excel object.
    Dim XL As Excel.Application
    Set XL = CreateObject("Excel.Application")
    
    ActivePresentation.SlideShowSettings.Run
 
    With SlideShowWindows(1).View
        'The following is said on the first slide:
        XL.Speech.Speak "Welcome to my presentation."
        'Change to slide 2, and then say the following two sentences:
        .Next
        XL.Speech.Speak "This is an example of how to create an Excel Application object."
        XL.Speech.Speak "We can use Excel's object model to invoke Text to Speech."
        
        'Close the Excel object and set the object to nothing.
        XL.Quit
        Set XL = Nothing
        
        'Exit the slideshow.
        .Exit
    End With
    
End Sub
注意: 根據預設 PowerPoint 安全性設定在 高。這個設定中，請勿執行不帶正負號的 Visual Basic 巨集。巨集安全性層級變更為 [媒體，請依照下列步驟執行：
  1. 在 [工具] 功能表上指向 [巨集，然後按一下 [安全性]。
  2. 安全性層級] 索引標籤按一下以選取 [中安全性，然後再按一下 [確定]。
  3. 在 [檔案] 功能表上按一下 [結束]，結束 PowerPoint]。

    注意: 您必須結束並重新啟動 PowerPoint，安全性層級變更才會生效。
回此頁最上方

在 Word 中使用文字轉換語音

下列範例會使用 Excel 物件模型來存取從 Word 文件的文字轉換語音。這個程序將示範如何參考，並建立 Excel 物件，才能使用 語音 物件。

將模組插入 Word

  1. 開啟 Word 文件。
  2. 按下 ALT + F11 即可啟動 [Visual Basic 編輯器]。
  3. 在 插入] 功能表上按一下 [模組]。
  4. 輸入或複製並貼入使用本單元稍後會出現在本章節的範例程式碼。

將參考加入至 Excel 10 物件程式庫

  1. 在 Visual Basic 編輯器] 中，會指向 [工具] 功能表上的 參考。
  2. 在 [可引用的項目 下, 選取 [Microsoft Excel 10.0 物件程式庫] 核取方塊，然後按一下 [[確定]。

若要自動化 Excel 文字轉換語音從 Word 的子程序

下列範例假設您在您的 Word 中鍵入文字的文件，然後選取文字，才能執行 Sub 程序。
Sub TTS()
   'Declare and create an Excel object.
      Dim XL_tts As Excel.Application
      Set XL_tts = CreateObject("Excel.Application")
      XL_tts.Speech.Speak Selection
      XL_tts.Quit
      Set XL_tts = Nothing
End Sub
注意： Word 安全性根據預設設定在 高。這個設定中，請勿執行不帶正負號的 Visual Basic 巨集。巨集安全性層級變更為 [媒體，請依照下列步驟執行：
  1. 在 [工具] 功能表上指向 [巨集，然後按一下 [安全性]。
  2. 安全性層級] 索引標籤按一下以選取 [中安全性，然後再按一下 [確定]。
  3. 在 [檔案] 功能表上按一下 [結束]，結束 Word]。
注意: 您必須結束並重新啟動 Word，安全性層級變更才會生效。

回此頁最上方

參考

如需詳細資訊按一下面的文件編號，檢視 「 Microsoft 知識庫 」 中的發行項:
277808? (http://support.microsoft.com/kb/277808/EN-US/ ) XL2002： 「 執行階段錯誤 1004年 」 當您嘗試在巨集中使用文字轉換語音
取得更多資訊有關取得應用程式的說明與 Visual Basic 按一下 [下面的文件編號，檢視 「 Microsoft 知識庫 」 中的發行項]：
163435? (http://support.microsoft.com/kb/163435/ ) 應用程式的 Visual Basic 的程式設計資源
回此頁最上方
這篇文章中的資訊適用於:
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Outlook 2002 Standard Edition
  • Microsoft PowerPoint 2002 Standard Edition
  • Microsoft Word 2002 Standard Edition
回此頁最上方
關鍵字：?
kbmt kbautomation kbenablesight kbhowtomaster KB287120 KbMtzh
回此頁最上方
機器翻譯機器翻譯
重要：本文是以 Microsoft 機器翻譯軟體翻譯而成，而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章，讓使用者可以依其使用語言使用知識庫中的所有文章。但是，機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤，就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本：287120? (http://support.microsoft.com/kb/287120/en-us/ )
回此頁最上方
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應，不負任何擔保責任。Microsoft及(或)其供應商謹此聲明，不負任何對與此資訊有關之擔保責任，包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。