给ppt批量加mp3音频

lys1195

需求：想做个ppt，每页有一张含有一个单词的图片，并且要给每个图片配一个mp3，实现自动播放。

问题：因为不想把所有单词合并成一个音频，一口气听完，希望听每个单词时可自己控制时间，所以单词是一个一个的，单词太多（mp3超过300个），添加起来太麻烦。

救助：有什么快捷方法（如：宏处理）将单词音频按页面顺序批量嵌入到每个ppt页面中(如001.MP3嵌入到第一页，002.mp3嵌入到第二页，……，320.MP3嵌入到第320页？麻烦高手给提个解决方案！

lys1195

我录了一个宏，可以把声音添加上了，可以播放，但需要单击才能播放，但不知道如果通过vba处理实现自动播放。
sub mp3()
For i = 1 To 300
    ActiveWindow.View.GotoSlide Index:=i
    ActiveWindow.Selection.SlideRange.Shapes.AddMediaObject(FileName:="C:\Documents and Settings\Administrator\桌面\22\" & i & ".mp3", Left:=0, Top:=0).Select
Next
end sub