如果活动文档自上次保存以来出现修改,则保存。
With Application.ActivePresentation
If Not .Saved And .Path <> "" Then .Save
End With