新人报到分享==我ppt中最常用的宏

Sub yuyn()
Dim yuy, yyyq
Set yyyq = CreateObject("sapi.spvoice")
yuy = "随着计算机的网络化和全球化，人们日常生活进入了高速信息化时代。信息交流日益繁复也日益方便；网站网页在信息交流方面的作用尤其显著。"
yyyq.Speak yuy
yuy = "好的网页既容易吸引眼球，备受关注，又是一种美的享受，有良好的广告效应。"
yyyq.Speak yuy
yuy = "网页是网站制作的基础，我们对网页也要有所了解，有所认识。"
yyyq.Speak yuy
End Sub

看不懂