RE: Tip: How to update rich text in a document that's open and redisplay it without saving Jennifer Rahn 14.Jul.05 10:14 AM a Web browser Applications Development All ReleasesWindows 2003, Windows 2000, Windows XP, Windows NT, Windows 95, Windows 98, Macintosh
Thanks much for your help. It did shed a little new light. Here's what I came up with, after merging our code (in case anyone else is running into similar problems). By the way, I do specify a target frame for the document, so I don't know if that may make a difference.
Sub Initialize
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim uidoc As NotesUIDocument
Dim uidocNew As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = workspace.CurrentDocument
uidoc.Refresh True
Set doc = uidoc.Document
Dim rti As NotesRichTextItem
Set rti = doc.GetFirstItem("RevHist")
Dim rtnav As NotesRichTextNavigator
Set rtnav = rti.CreateNavigator
. . .
RT field manipulation
. . .
If session.NotesBuildVersion >= 190 Then
rti.Update 'ND6 only
Else
Call doc.ComputeWithForm(True, False)
End If
docUNID = doc.UniversalID
doc.SaveOptions = "0" 'close document without save prompt
Call doc.Save(True, True) 'get rid of old doc
Call uidoc.Close(True) 'close and reopen doc so changes appear on table
Dim docNew As NotesDocument
Set docNew = db.GetDocumentByUNID(docUNID)
Set uidocNew = workspace.EditDocument(True, docNew, False)
uidocNew.Document.RemoveItem("SaveOptions")
uidocNew.GotoField("RevHist")
Return to top
. . RE: Tip: How to update rich text in... (Jennifer Rahn 14.Jul.05) 
Print this page
