合并PPT的VBS脚本

'将C:\ppt内的所有PPT合并成一个PPT，背景将被忽略，主要是有利于黑白打印，如果顺序重要，则可以将PPT用数字编号

'绑定到本地计算机
strComputer = "."
'如果发生错误，继续执行 www.cmdos.net
on error resume next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

'创建一个ppt对象
Set pptApp = CreateObject ("PowerPoint.Application")
Set pptSource = pptApp.Presentations.Add
'获取C:\ppt里的所有ppt文件
Set FileList = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='c:\ppt'} Where " _
        & "ResultClass = CIM_DataFile")

For Each objFile In FileList
If objFile.Extension = "ppt" Then
   pptApp.Visible = True
   '打开各个ppt文件
   Set pptSelection = pptApp.Presentations.Open("c:\ppt\" & objFile.FileName & "." & objFile.Extension)
   '从ppt的第一页开始循环
   For i=1 To pptSelection.Slides.Count
    pptSelection.Slides(i).Copy
    'pptSource.Slides.Add 1,1
    pptSource.Slides.Paste
   Next
   pptSelection.Close
End If
Next