Actually, the client in this case would probably be interested in the RMS, I'll look into it, thanks.
The Commandbars code allowed me to disable menu options:
app.Activate 'Open the Document
app.Documents.Open FileName:=GetDestinationFile(), ReadOnly:=True
app.CommandBars("Menu Bar").Controls("&File").Controls("Save &As...").Enabled = False
app.CommandBars("Menu Bar").Controls("&File").Controls("Save").Enabled = False
app.CommandBars("Menu Bar").Controls("&View").Controls("Toolbars").Enabled = False
CustomizationContext = app.ActiveDocument.AttachedTemplate
For Each CommandShortcuts In KeysBoundTo(wdKeyCategoryCommand, "SaveAs")
CommandShortcuts.Disable
Next CommandShortcuts
For Each CommandShortcuts In KeysBoundTo(wdKeyCategoryCommand, "Save")
CommandShortcuts.Disable
Next CommandShortcuts
This locks it down well enough to prevent low-skill level people from copying the document, not perfect, but better than wide open.