Private Sub CommandButton1_Click()
On Error Resume Next
Dim Voice1
'Windows XP / Vistaで動作します。
'Windows 2000では、コントロールパネルに「音声認識」がある場合に動作します。
'コントロールパネル --> 音声認識 --> 音声合成 タブ -->「音声の選択」の設定に依存します。
'-----------------------------------------
' コントロールパネルの音声認識を取得する
'-----------------------------------------
'セットする
Set Voice1 = CreateObject("SAPI.SpVoice")
'音声認識の人物の総数をカウントする
MsgBox Voice1.GetVoices.Count
'0番目（一番上）の音声を取得する。
Set Voice1.voice = Voice1.GetVoices().Item(0) '「0」を「1」「2」「3」と書換えると読み上げる人物が変る
'0番目の人物名を表示する
MsgBox Voice1.voice.getdescription()
'0番目の人物にspeakさせる
Set Voice1.voice = Voice1.GetVoices().Item(0)
Voice1.Speak TextBox1.Text
End Sub
|
