Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim dc As NotesDocumentCollection
 Dim doc As NotesDocument
 Dim body As NotesRichTextItem
 Dim rtnavBody As NotesRichTextNavigator
 Dim rtnavPara As NotesRichTextNavigator
 Dim rtrangePara As NotesRichTextRange
 Dim rtrangeRun As NotesRichTextRange
 Dim paraCount As Integer
 Dim runCount As Integer
 Set db = session.CurrentDatabase
 Set dc = db.UnprocessedDocuments
 Set doc = dc.GetFirstDocument
 Set body = doc.GetFirstItem("Body")
 REM Get first paragraph in Body item
 REM Set range and navigator for it
 Set rtnavBody = body.CreateNavigator
 If Not rtnavBody.FindFirstElement(RTELEM_TYPE_TEXTPARAGRAPH) Then
   Messagebox "Body item does not contain text,",, _
   "Error"
   Exit Sub
 End If
 Set rtrangePara = body.CreateRange
 Set rtrangeRun = body.CreateRange
 Do
   paraCount = paraCount + 1
   runCount = 0
   Call rtrangePara.SetBegin(rtnavBody)
   Call rtrangePara.SetEnd(rtnavBody)
   Set rtnavPara = rtrangePara.Navigator
 REM Get each run in paragraph
 REM Display it
   Call rtnavPara.FindFirstElement(RTELEM_TYPE_TEXTRUN)
   Do
     runCount = runCount + 1
     Call rtrangeRun.SetBegin(rtnavPara)
     Messagebox rtrangeRun.TextRun,, _
     "Paragraph " & paraCount & ", Run " & runCount
   Loop While rtnavPara.FindNextElement(RTELEM_TYPE_TEXTRUN)
 Loop While rtnavBody.FindNextElement(RTELEM_TYPE_TEXTPARAGRAPH)
End Sub

See Also

TextRun property

Glossary