Changing font for a RTF backend in Notes with Lotus Script?

HCL Domino Domino Forum
1

Hi Notes Gurues.

I need to rewrite this @Formularcode to Lotus Script:

@Command([EditGotoField]; “Body”);

@Command([EditSelectAll]);

@Command([TextSetFontFace]; “Arial”);

@Command([TextSetFontSize]; “10”);

@Command([EditDeselectAll])

so that it works on a backend document. I have tried with some of the NotesRichTextItem functions in Script, without any luck. Has any of you some code that I can learn from ? Please.

Kind regards and thx in advance

Lars

2

Subject: some sample code

Set rtext = New NotesRichTextItem (repdoc,“RBody”) Set richstyle = ss.CreateRichTextStyle

NotesFont = rtext.GetNotesFont("Default Sans Serif",True)

richstyle.NotesFont=notesfont

richstyle.FontSize= 8

richstyle.Bold = True

richstyle.notescolor = COLOR_BLACK

Call rtext.AppendStyle(richstyle)

Hope this helps