Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
111 / 314 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【571】ｗｏｒｄで読み上げ機能を実現したい おしゃべり 08/5/24(土) 17:41 質問[未読]
【572】Re:ｗｏｒｄで読み上げ機能を実現したい マクロマン 08/5/24(土) 20:08 発言[未読]
【573】Re:ｗｏｒｄで読み上げ機能を実現したい マクロマン 08/5/24(土) 20:41 発言[未読]
【574】Re:ｗｏｒｄで読み上げ機能を実現したい おしゃべり 08/5/29(木) 20:48 お礼[未読]
【575】Re:ｗｏｒｄで読み上げ機能を実現したい マクロマン 08/5/29(木) 21:23 発言[未読]
【571】ｗｏｒｄで読み上げ機能を実現したい
質問  おしゃべり  - 08/5/24(土) 17:41 -
引用なし
パスワード
   エクセルの読み上げ機能をｗｏｒｄで拝借したいのですが、
以下のコードは、Speechが未定義エラーで蹴られます。
それらしいライブラリの参照設定は、ツールメニューで設定したのですが、だめでした。
ご教示、宜しくお願い致します。

Sub UseSpeech()

　　Application.Speech.Speak "こんにちは"

End Sub
【572】Re:ｗｏｒｄで読み上げ機能を実現したい
発言  マクロマン  - 08/5/24(土) 20:08 -
引用なし
パスワード
   一応、↓でいけました。

'参照設定：Microsoft Excel 10.0 Object Library
Sub xlspk()
Dim　ExObj As Object
　Set ExObj = CreateObject("Excel.Application")
　 ExObj.Speech.Speak "Hello"
　 ExObj.Quit
End Sub

英語はしゃべってくれましたが、日本語はしゃべってくれませんでした。
識者のレスをお待ち下さい。
【573】Re:ｗｏｒｄで読み上げ機能を実現したい
発言  マクロマン  - 08/5/24(土) 20:41 -
引用なし
パスワード
   日本語もいけました。

ｈｔtp://www.excel7.com/2007oboegaki3.htm
【574】Re:ｗｏｒｄで読み上げ機能を実現したい
お礼  おしゃべり  - 08/5/29(木) 20:48 -
引用なし
パスワード
   ▼マクロマン さん：
>日本語もいけました。
>
>ｈｔtp://www.excel7.com/2007oboegaki3.htm

有り難うございました。
参考にさせていただきます。
【575】Re:ｗｏｒｄで読み上げ機能を実現したい
発言  マクロマン  - 08/5/29(木) 21:23 -
引用なし
パスワード
   mougだけじゃなくこちらもこまめにチェックしてね。

マルチポストはmougでは禁止されてます。
今後はお気をつけ下さい。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
111 / 314 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
207414
(SS)C-BOARD v3.8 is Free