用VBA创建PPT文件,该怎么处理

Sub CreatePPT()    '将PPT应用程序的一个实例赋值给一个对象变量    Dim ptApp As Object    Set ptApp = CreateObject("PowerPoint.Application")        '新建一个演示文稿并将其赋值给一个对象变量    Dim ptPre As Object    Set ptPre = ptApp.Presentations.Add        '在当前新建的演示文稿中新建一张版式为“空白”的幻灯片，并将其赋值给一个对象变量    Dim ptSld As Object    Set ptSld = ptPre.Slides.Add(1, 12)        '让PPT应用程序可见，这样可以看到新建的演示文稿    ptApp.Visible = msoTrue        '释放之前创建的所有对象变量占用的内存空间    Set ptSld = Nothing    Set ptPre = Nothing    Set ptApp = NothingEnd Sub