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