ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: 二公子

能在打开word文件时自动播放背景音乐吗?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2005-8-9 12:49 | 显示全部楼层
以下摘自网上一篇介绍此类的文章:(用VBA代码)

1、启动Word,按“Alt+F8”键,弹出“宏”对话框,在“宏名”文本框中输入欲创建宏的名称,例如PlayMp3,接着单击“创建”按钮,弹出Visual Basic编辑器窗口。

2、在“代码”窗口中的“Sub PlayMp3 ()”与“End Sub”两行之间输入一行内容:“Shell "C:\Program Files\Winamp\winamp.exe D:\mp3\list.m3u"”。其中“C:\Program Files\Winamp\winamp.exe”为MP3播放器Winamp的路径和程序名,“D:\mp3\list.m3u”是你预先设置好的MP3播放清单文件。

3、按“Ctrl+S”保存宏到通用模板,按“Alt+Q”键返回到Word编辑窗口,宏创建完成。

运行这个宏就可以在Word中播放MP3了,但显然这样播放MP3还不够方便,不妨为这个宏创建菜单命令。

用鼠标点击菜单“工具→自定义”,在弹出的自定义对话框中点击“命令”选项卡,在“类别”列表框中选择“宏”,在右部的“命令”列表框中有一个名为“Normal.NewMacros.PlayMp3”的宏命令,将它拖放到“工具”或其它菜单中的合适位置,并用右键点击拖放入菜单的宏命令,在“命名”文本框中重命名为“播放MP3”,最后单击“关闭”。

经过以上步骤,在Word的“工具”菜单中便出现了一条“播放MP3”命令,点击此命令,便立即弹出MP3播放器WinAmp,并开始播放预设的音乐,你就可以一边悠闲地听音乐一边工作了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-8-9 13:07 | 显示全部楼层

konggsl老师:

教程收到。谢谢!

我不是故意的。不好意思!耽误你宝贵的时间。

抱歉!!!

TA的精华主题

TA的得分主题

发表于 2005-8-9 17:14 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2005-8-9 17:21 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-8-9 23:46 | 显示全部楼层

konggsl老师:

你转载的宏实际是在word工具栏加了一个MP3播放器WinAmp的按钮,要点击才能播放。不是那个意思啊。

我原来的想法是:希望将一首乐曲(mp3格式)加入到一个word文件里,并且在打开这个word文件乐曲能够自动播放。你教我们在控件工具箱搞的那个设置显然更接近我的设想,比那个宏好。但是这个带音乐的word文件并不能离开自己的电脑,因为乐曲只是与word文件链接而不是加入进去。不知我的表述能否让老师明白?

再次感谢konggsl老师诲人不倦,也要感谢守柔版主对本贴的关注。

TA的精华主题

TA的得分主题

发表于 2005-8-10 07:25 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

你说的是夹带,对吧。见精华贴有的。

是七兄与sailor兄的大作。不过中间有不少关于VBA的。比较难,但改一下的话,还是可以的达到效果的。

TA的精华主题

TA的得分主题

发表于 2005-8-22 11:16 | 显示全部楼层

我也要一个。xiaosong22@hotmail.com

TA的精华主题

TA的得分主题

发表于 2005-8-23 11:40 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2005-8-23 12:28 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

加上我!^_^

jselite8@163.com!

TA的精华主题

TA的得分主题

发表于 2005-8-23 18:22 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

要一个,谢谢!

plyue717@sohu.com

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-15 14:39 , Processed in 0.042579 second(s), 6 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表