rtLib — Notes Rich Text Management Library Documentation of rtLib — Notes Rich Text Management Library Download rtLib — Notes Rich Text Management Library FAQ of rtLib — Notes Rich Text Management Library Purchase rtLib — Notes Rich Text Management Library Feedback about rtLib — Notes Rich Text Management Library

Cookbook

Substitute fonts

Start search Mail feedback Back to Description


rtHotLink

Collection (rtContainer) Collection (rtEnumeration) Font FontSize getRichTextItem hasMoreElements NextElement NotesColor Style Typeface

Code fragment from sample "Substitute fonts"; see full running samples in downloadable help.
Dim o As Variant, hs as rtHotLink
Call ctxDump.getRichTextItem(doc,"Body")
Set enum = New rtEnumeration(ctxDump.Collection(PARSE_GROUP_TEXT))
Do While enum.hasMoreElements
Set o = enum.nextElement
if Not o isA RT_OBJ_LABEL then
' ignore paragraph labels
With o.Style.Font
If .TypeFace ="Times New Roman" And .FontSize=18 Then
.TypeFace ="Helvetica"
.FontSize=10
.NotesColor = NOTES_COLOR_RED
End If
End with
End if
Loop