Word文書には、テキストよりもかなり多くの情報を含めることができます。グラフィックやサウンドクリップなどのマルチメディアオブジェクトを含めることもできます。サウンドクリップを再生する通常の方法は、ドキュメント内のアイコンをダブルクリックすることです。ドキュメントを最初に開いたときに、ダブルクリックせずにサウンドクリップの再生を開始したい場合はどうすればよいですか？

この問題に取り組む最善の方法は、マクロを使用することです。ドキュメントを開いたときに自動的に実行されるマクロを簡単に作成でき、マクロはサウンドファイルを再生できます。以下は、まさにそれを行う非常に単純なマクロです。

Private Sub Document_Open()

ThisDocument.InlineShapes(1).Select     Selection.InlineShapes(1).OLEFormat.DoVerb VerbIndex:=wdOLEVerbPrimary End Sub

このマクロは、サウンドクリップがドキュメントにインラインで挿入された最初のオブジェクトであると想定しています。そうでない場合は、InlineShapesコレクション内のクリップのインデックス番号を把握し、そのインデックス値をマクロで使用する必要があります。

マクロの中心はDoVerbメソッドを使用します。これは、OLEオブジェクト（この場合はサウンドファイル）に対してさまざまなアクションを実行する一般的な方法です。 VerbIndexパラメーターは、実行されるアクションを決定します。

この使用法では、VerbIndexはwdOLEVerbPrimaryと等しく設定されます。これは、「このタイプのOLEオブジェクトのプライマリアクション」を意味します。これはサウンドファイルであるため、主なアクションはそれを再生することです。

おそらく、より良いアプローチは、Wordのブックマーク機能を有利に使用することです。ブックマークを使用して再生するサウンドクリップを識別し、その情報をマクロで使用して何を再生するかを決定できます。次のマクロについて考えてみます。

Private Sub Document_Open()

Selection.GoTo What:=wdGoToBookmark, Name:="WavSound"

Selection.InlineShapes(1).OLEFormat.DoVerb VerbIndex:=wdOLEVerbPrimary End Sub

このマクロは、サウンドクリップがドキュメントにインラインで配置されていることも前提としています。ただし、クリップはWavSoundという名前を使用してブックマークする必要があります。マクロはそのブックマーク（サウンドクリップ）を選択し、DoVerbメソッドを使用して再生します。

これらのアプローチは、ドキュメントの一部であるサウンドクリップを再生する場合にうまく機能します。ドキュメントの一部ではないサウンドクリップを再生することをお勧めします。このようにすると、サウンドクリップのアイコンがドキュメントに表示されず、ドキュメントの外観が台無しになります。

これを実現する方法は、WindowsAPIにサウンドを再生するように依頼することです。この方法は、システムにWindows Media Playerもインストールされている限り、既にコンピューター上にあることがわかっているサウンドファイルにアクセスする場合に機能します。次の例は、WindowsXPシステムで機能するはずです。 （マクロは、システムの構成方法に応じて、Vistaシステムで機能する場合と機能しない場合があります。）

Private Declare Function PlaySound Lib "winmm.dll" _   Alias "PlaySoundA" (ByVal IpszName As String, _   ByVal hModule As Long, ByVal dsFlags As Long) As Long

Private Sub Document_Open()

PlaySound "c:\windows\media\tada.wav", ByVal0&, &H1 End Sub

Document_Openマクロは、ドキュメントが開かれたときに実行されますが、PlaySound関数を呼び出します。この関数は、winmm.dllのPlaySoundAメソッドのエイリアスとしてプライベート宣言で定義されています。このメソッドは、メディアプレーヤー自体を起動せず、ドキュメントの本文に何も挿入しません。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ wordribbon-WordTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（3902）は、Microsoft Word 97、2000、2002、および2003に適用されます。