HELP! with Richtext Range and Styles

HCL Domino Domino Forum
1

Although my RichText has Bold in it. The following condition isn’t firing. I also triied: (If style.Bold Then)

Set rtRange = pRitem.CreateRange

Call rtRange.SetBegin(rtNav)

Call rtRange.SetEnd(rtNav)

Set style = rtRange.Style

If style.Bold = -1 Then

Messagebox “Text is Bold”

iHold= RptDoc.BoldCount(0)

RptDoc.BoldCount = iHold +1

iFound = True

End If

2

Subject: HELP! with Richtext Range and Styles

Is there any text in the range? (i.e., was the navigator moved between setbegin and setend?) Try messageboxing the textrun or the text to see what you’ve got.

3

Subject: RE: HELP! with Richtext Range and Styles

Yes, it’s full of text. The messageboxes display it. And it has RichText attributes: (Bold, italics)