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
|