What you have to do is:
1) set the SaveOptions field to "0"
2) save using uidoc.save (doesn't really save because of the SaveOptions field)
3) get a reference to the original document using uidoc.Document
4) close the document in the Notes client using uidoc.Close
5) use ws.EditDocument to re-open the document in edit mode
Here's a code snippet for doing this:
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Dim doc As NotesDocument
Set doc = uidoc.Document
Call doc.ReplaceItemValue("SaveOptions", "0")
call uidoc.Save
Set doc = uidoc.Document
call uidoc.Close
Call workspace.EditDocument(True, doc)
Call doc.RemoveItem("SaveOptions")