如果打开的演示文稿被修改,则保存该演示文稿。
With Application.ActivePresentation
If Not .Saved And .Path <> "" Then .Save
End With