ReadOnly Property Example

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