Jeg skal på et gemt document (evt. via QuerySave) lave fonten om i rich text felt, og har bøvlet noget med det nu, uden held. Her er min kode, som gør ingenting: Any clue, anyone ? Takker!
Dim session As New NotesSession
Dim dbCurr As NotesDatabase
Dim collSelected As NotesDocumentCollection
Dim docSelected As NotesDocument
Dim richStyle As NotesRichTextStyle
Dim rtf As NotesRichTextItem
Dim rtfRange As NotesRichTextRange
Dim rtnavBody As NotesRichTextNavigator
Set dbCurr = session.CurrentDatabase
Set collSelected = dbCurr.UnprocessedDocuments
Set docSelected = collSelected.GetFirstDocument
Set richStyle = session.CreateRichTextStyle
richStyle.NotesFont = FONT_COURIER
richStyle.FontSize = 14
Set rtf = docSelected.GetFirstItem("Body")
Set rtnavBody = rtf.CreateNavigator
If rtnavBody.FindFirstElement(RTELEM_TYPE_TEXTPARAGRAPH) Then
Set rtfRange = rtf.CreateRange
Call rtfRange.SetBegin(rtnavBody)
Call rtfRange.SetEnd(rtnavBody)
Call rtfRange.SetStyle(richStyle)
End If
Call docSelected.Save(True, False)