如果打开的演示文稿被修改,则保存该演示文稿。

With Application.ActivePresentation
    If Not .Saved And .Path <> "" Then .Save
End With