Dim links As rtEnumeration, coll As rtCollection, link As rtHotLink, o
ctxDump.getRichTextItem doc, "Body"
Print "getting ...", doc.tTitle(0)
Set coll =ctxDump.Collection(PARSE_GROUP_HOTSPOT)
If Not coll Is Nothing Then
 Set links = New rtEnumeration (coll)
 Do While links.hasMoreElements
  Set o = links.nextElement
  Print "Hotspot of type...", Typename(o)
  If o Isa "rtHotLink" Then
   Set link = o
   Print "link found" , link.NoteLink.getDocumentUNID
  End If
 Loop
End If
|