怎样在打开WORD后看文本的同时循环播放音乐

[nb20022]

怎样在打开WORD后看文本的同时能循环播放音乐
谢谢 指教
e-mail:[e-mail]

[huzi6813188]

在编辑文本后插入一个对象，选择媒体剪辑对象。

[xinliangyu]

在Document_open中加用API实现插放，如下：
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Document_Open()
mciSendString "Play E:\mp3\爱你一万年.MP3", 0&, 0, 0
End Sub
要循环的话，可考虑用一个先检测播放时间，到结束时重新加始播放。

[tyong]

如果能力够的话可以自己写个插件

[nb20022]

能不能给个例子到我的信箱里啊，谢谢