Document.ReadOnly (Word)

True si los cambios realizados en el documento no pueden guardarse en el documento original.

If ActiveDocument.ReadOnly = False Then ActiveDocument.Save