本示例在活动文档不是只读文档时保存该文档。

If ActiveDocument.ReadOnly = False Then ActiveDocument.Save