This example saves the active document if it isn't read-only.
If ActiveDocument.ReadOnly = False Then ActiveDocument.Save
This example opens the most recently used file as a read-only document.
With RecentFiles(1)
.ReadOnly = True
.Open
End With