Can you refresh a document in the Notes client after changing a rich text field?

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")