如果活动文档在上次保存后进行了修改,本示例将保存活动文档。

If ActiveDocument.Saved = False Then
    ActiveDocument.Save
End If