本示例关闭所有打开的演示文稿。
With Application.Presentations
For i = .Count To 1 Step -1
.Item(i).Close
Next
End With