Play Sound Clip - Word VBA 2

[hahnsm]

I would like to have a sound clip start to play when I open up a certain Word document. What VBA code can I use for this to happen?

 

[PHV]

Have a look here:

http://www.tek-tips.com/viewthread.cfm?qid=1001578

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[hahnsm]

Thanks PHV but this code doesn't help me out. I would like to have the soundwav start playing when the document is opened and then looped until the document is closed. Can you help me with that code? Thank you so much!
Sadie

 

[PHV]

In a standard code module:

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

In the ThisDocument class module:

Const SND_ASYNC = &H1
Const SND_LOOP = &H8

Private Sub Document_Open()
  Dim strWav As String
  strWav = "\path\to\file.wav"
  sndPlaySound strWav, SND_ASYNC Or SND_LOOP
End Sub

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[hahnsm]

Awesome! Worked great!

sadie

 

[GlennUK]

Hmmm, that looks very useful ... will pass on to my Word specialist friends ..... -----> * ( star for that )


Cheers, Glenn.

Did you hear about the literalist show-jumper? He broke his nose jumping against the clock.