Elizabeth Thiede 11.Apr.12 09:55 AM a Web browser Notes ClientAll ReleasesAll Platforms
I have a richtext field that I am using uidoc.inserttext.. I want to the text I insert to be blue and underlined.. Anyway to do that..
Dim session As New NotesSession
Dim Workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uiDoc As NotesUIDocument
Dim doc As NotesDocument
Dim uidocNew As NotesUIDocument
Dim rtitem As NotesRichTextItem
Dim fieldChoices As Variant
Set db = Session.CurrentDatabase
Set uiDoc = workspace.CurrentDocument
Set doc = uidoc.Document
If uidoc.CurrentField <> "AgreementText" Then
Messagebox "Please place your cursor in the the Agreement Text field.",16,"Try again"
Exit Sub
End If
fieldChoices = doc.FieldTagChoices
Dim selectedTag As Variant
selectedTag = workspace.Prompt (PROMPT_OKCANCELEDIT,"Data Entry", "Enter the tag.", "")
If Isempty(SelectedTag) Then
Else
Call uidoc.InsertText( "<" + Ucase(Fulltrim(selectedTag)) + ">" )
End If
Return to top
Changing richtext color in ui (Elizabeth Thied... 11.Apr.12)
. . 
Print this page
