wordで単語の読み上げ

質問

wordで絵かーどを作っています
絵カードの名前（単語名）をクリックしたら、その単語を音声読み上げ
するようにしたいのですが　その手順を教えてください
　たとえば　りんごの絵の下に書いてある「りんご」の文字をクリックしたら　「りんご」と読み上げるように

音声は別ホルダに「りんご.wav」の形で保存してあります

回答No.1

Wendy02

こんばんは。

いずれにしても、マクロの処理になります。

「絵カードの名前（単語名）をクリック」
まず、ツールバーの「コントロールツールボックス」を出します。
コントロールツールのラベルをドラッグして、画面の適当の場所に置きます。そして、その中に文字を入れてあげます。
青い三角定規が押された状態になっていると思いますから、オブジェクトを置いて、右クリックすると「編集」というメニューをクリックすると、文字が入れられます。

次に、ラベルをダブルクリックすると、画面が変わり、VBEditor になりますから、以下のようなコードを貼り付けてあげます。最後に、青い三角定規のアイコンがオフになっていることを確認してください。(Labelのプロパティ: TextAlign 2-fmTextAignCenter--ラベルの中央に文字が入ります)

なお、絵の方をクリックして読み上げをさせたい場合は、コントロールツールの中の、Image（イメージ)オブジェクトを使い、Picture というプロパティの中で、画像ファイルを入れてあげます。
そして、同じようにして、オブジェクトをダブルクリックして中身を同じようにすれば、音が鳴ります。(Picture--ファイル選択、PictureSizeMode--1-fmPictureSizeModeStretch　画像がオブジェクト内に納まります。)

'-------------------------------------------

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Const SND_NODEFAULT As Long = &H2

Private Sub Label1_Click()
'りんご
　Dim fName As String　'ファイル名
　fName = "C:\Documents and Settings\[UserName]\My Documents\My Music\りんご.wav"
　sndPlaySound fName, SND_NODEFAULT
End Sub

お礼

こんばんわ
早速の回答ありがとうございました。

残念ながら不勉強でまだ、マクロをつかえません
これからマクロを勉強して、いただいた回答にトライしてみます。
ありがとうございました。