Document.ReadOnly (Word)

True, wenn Änderungen am Dokument nicht im Originaldokument gespeichert werden können.

If ActiveDocument.ReadOnly = False Then ActiveDocument.Save