Тема: Измение шрифта в поле.
Почему-то не работает этот лотус скрипт:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim uiworkspace As New NotesUIWorkspace
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim UIDoc As NotesUIDocument
Set UIDoc = uiworkspace.CurrentDocument
Dim doc As NotesDocument
Set doc = UIDoc.Document
Dim body As NotesRichTextItem
Dim rtnavBody As NotesRichTextNavigator ' навигация по полю
Dim rtrangeTable As NotesRichTextRange
Dim style As NotesRichTextStyle
Set body = doc.GetFirstItem("СОДЕРЖАНИЕ_")
Set rtnavBody = body.CreateNavigator ' не получаем знаечние
Set rtrangeTable = body.CreateRange
Call rtrangeTable.SetBegin(rtnavBody)
Call rtrangeTable.SetEnd(rtnavBody)
REM Create style
Set style = session.CreateRichTextStyle
style.NotesFont = FONT_ROMAN
REM Set table to blue
Call rtrangeTable.SetStyle(style)
Call doc.Save (True, False)
Call UIDoc.Close
Call uiworkspace.EditDocument(False, doc)
End Sub