以下是用vb做的例子,你参考一下吧
多个PPT文件合并为一个PPT文件
近来发现有较多类似主题的PPT材料,想将其合并成一个PPT文件,以便于查阅. 多个PPT文件合并成一个
1. VBA编程
Sub megerPPT()
Dim path As String
Dim inputFileName As String
Dim outputFileName As String
Dim slideNum As Integer
path = "d:\work"
outputFileName = "allinone.ppt"
Set pptApp = CreateObject("PowerPoint.application")
pptApp.Visible = msoTrue
Set pptOutput = pptApp.Presentations.Open(outputFileName)
If pptOutput.Slides.Count = 0 Then
Set newSlide = pptOutput.Slides.Add(1, ppLayoutBlank)
End If
FileName = Dir(path & "\*.ppt")
FileName = path & "\" & FileName
Do While FileName <> "d:\work\"
Debug.Print FileName
Set pptInput = pptApp.Presentations.Open(FileName)
For j = 1 To pptInput.Slides.Count
pptInput.Slides(j).Copy
pptOutput.Slides.Paste (pptOutput.Slides.Count)
Next j
pptInput.Close FileName = Dir
FileName = path & "\" & FileName
Loop
pptOutput.Save
pptOutput.Close
End Sub
2. 比较合并先打开一个PowerPoint演示文稿,选择“工具”→“比较并合并演示文稿”,在对话框中找到待合并的目标文件,单击对话框中的“合并”按钮。按提示继续操作,目标文件的所有幻灯片即插入当前选中的幻灯片之前,保存后就会成为一个新的演示文稿。