本示例关闭所有打开的演示文稿。

With Application.Presentations
    For i = .Count To 1 Step -1
        .Item(i).Close
    Next
End With