vbs怎么打开ppt？如何实现自动播放？

　　VBS脚本是一种基于VBScript的脚本语言，它可以用来执行一系列自动化任务。在本文中，我们将探讨如何使用VBS脚本打开PowerPoint演示文稿，并实现自动播放功能。

　　一、VBS脚本打开PPT的基本原理

　　VBS脚本可以通过调用PowerPoint的COM接口来打开和操作PPT文件。COM（Component Object Model）是一种软件组件模型，它允许不同的软件组件之间进行交互。在VBS脚本中，我们可以通过调用PowerPoint的COM接口来打开PPT文件，并对其进行操作。

　　二、编写VBS脚本打开PPT

　　以下是一个简单的VBS脚本示例，用于打开一个名为“演示文稿.pptx”的PPT文件：

　　```vbscript

　　' 创建PowerPoint应用程序实例

　　Set pptApp = CreateObject("PowerPoint.Application")

　　' 打开PPT文件

　　Set pptDoc = pptApp.Documents.Open("演示文稿.pptx")

　　' 设置自动播放

　　pptDoc.SlideShowSettings.SlideShowWindow.ViewType = ppViewNormal

　　pptDoc.SlideShowSettings.SlideShowWindow.View = ppViewNormal

　　pptDoc.SlideShowSettings.RunSlideShow = ppShowWithNarration

　　' 开始自动播放

　　pptDoc.SlideShowSettings.StartAtSlide = 1

　　pptDoc.SlideShowSettings.EndAtSlide = pptDoc.Slides.Count

　　pptDoc.SlideShowSettings.AdvanceSlideShow = ppSlideShowAdvanceModeOneByOne

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("Sound", msoSoundNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("Video", msoVideoNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("ShowNotes", msoShowNotesNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("Handouts", msoHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotes", msoPrintNotesNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintHandouts", msoPrintHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotesAndHandouts", msoPrintNotesAndHandoutsNone)

　　pptDoc.SlideShowSettings.PlayBackOptions.SetVariable("PrintNotes