在WORD中如何实现音乐的循环播放？

chuhaiou

在WORD中如何实现音乐的循环播放？

在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  
  要循环的话，如何才能实现？请高手指教！谢谢！

守柔

您可以参考一下这个链接：

http://topic.csdn.net/t/20020102/11/454694.html