UC知道WORD 音乐及其相关
来源：百度知道 编辑：UC知道 时间：2024/06/20 10:51:14
1.把MP3添加进文档里
2.不希望 点击（单击，双击） 后 等播放模式，即 看到的还是一片文档（纯文字和符号），没有播放图标和提示播放的图标。
3.当看到某一位置时，自动播放（个人认为这个最有难度）
4.希望能在WORD（无论何种版本的）通用
5.能否添加一些动态效果，像PPT那样。
6.需要用到的工具请大家注明 名称 和 简单的用法，谢谢
希望大家能认真对待，别忽悠我，分 不是问题。 感谢大家百忙中抽出时间来看我的问题。
。
首先有两个问题要问楼主：
1、楼主说的“动态效果”，在PPT中我知道，有比如文字飞进飞出，淡入淡出等，但是具体在Word中你希望得到的是什么效果呢？
2、不知楼主说的“当看到某一位置时”，具体是个什么需求？是说通过滚动条（或者鼠标滚轮）滚动到某个页面时？还是编辑光标移动（通过键盘上下左右/PgUp/PgDn/Home/End等）或者鼠标点击到某一位置？
如果是前者的话，恐怕是做不到的。
如果是后者的话，我已经用VBA做出了类似的效果。如果楼主需要的话，我可以把详细的步骤贴出来。
______________________
补充：
我做的示例Word文件（光标点击段落自动音乐播放）已经发到楼主邮箱，请查收。
此外，楼主提到的动态效果恐怕很难做到，毕竟Word的长项是处理静态的文本。
但是，如果这个效果对于楼主非常重要、非要不可的话，我们也可以再努力想想办法。但是，我个人觉得希望不是太大……
Word的默认设置，是没有办法实现你所说的效果的。
如果通过VBA编程，也许有可能实现，但是我没有研究过媒体这方面的，好像有一个PlaySound的API（需要用到winmm.dll），另外那个好像只能播放WAV……
给个别人的例子：
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Sub Play_Wav_File()
Dim sWAVFile As String
On Error GoTo Err_Play
sWAVFile = "C:\Temp\Windows XP Logon Sound.wav"
Pla