TexttoSpeechコントロールで複数の言葉を読み上げさせるには？

解決

gibiriro 2007-05-01 06:54:35 No: 136292

（１）Texttospeechコントロールを使って、英語と日本語の両方の読みあげをさせたいのですが、可能ですか？

（２）現在の状態は、最初、英語の読み上げエンジンをインストールしてあって、あとから日本語用のエンジンをインストールしましたが、日本語を読み上げません。もし、両方の言葉の読み上げが不可能ならば、日本語だけでも読み上げさせたいです。
英語用のエンジンをアンインストールすれば、日本語を読み上げるようになるのでしょうか？

お願いします。

ヤマ＠文系 2007-05-01 09:07:03 No: 136293

'プロパティでなんか変更できるようなことが書いてありました
http://www.roy.hi-ho.ne.jp/mutaguchi/bbs/list103.shtml

gibiriro 2007-05-01 19:37:11 No: 136294

ありがとうございます。
教えていただいたページにしたがって、

TextToSpeech1.LanguageID 1041

としてみましたが、うまくいきませんでした。
日本語のエンジンlhttsipj.exeはインストールしてあります。
英語の読み上げはうまくいきます。

ヤマ＠文系 2007-05-03 01:14:05 No: 136295

ずいぶん、配布方法が面倒だなぁとくらいしか
思っていなかったのでよく知りませんが。
Agentを使えば可能みたいです。

http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200202/02020002.txt
過去ログにたかみちえ様が
発言なさっているようです。

スクリプトプログラマ 2007-05-07 08:47:17 No: 136296

こんな感じで一覧して
Set TTS=CreateObject("TextToSpeech.TextToSpeech.1")
ReDim Rows(TTS.CountEngines+1)
Rows(0)=Join(Array("#","Speaker","Age","Gender","LanguageID","ModeID"&vbTab&vbTab,"ModeName"),vbTab)
For k=1 To TTS.CountEngines
Rows(k)=Join(Array(k,TTS.Speaker(k),TTS.Age(k),TTS.Gender(k),TTS.LanguageID(k),TTS.ModeID(k),TTS.ModeName(k)),vbTab)
Next
Rows(k)=Join(Array("CountEngines",TTS.CountEngines,"CurrentMode",TTS.CurrentMode,"TTSMode",TTS.TTSMode),vbTab)
msgbox Join(Rows,vbLf)

TTS.Select 番号
で変更します。

giiriro 2007-05-29 02:12:18 No: 136297

アドバイスありがとうございます。
CountenginesプロパティとSelectメソッドを使うことで
うまくいきました。返事遅れて申し訳ありませんでした。
解決とさせていただきます。