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 reason to the Original Document Uses 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")