For some reasons, I'm now using hyperlinks to index a document. It is very nice that NWP does not check for the format of destination link ;-) One of the reasons is that it is difficult to verify topic and sub-topic applied on texts. Well, you have the Indexing palette which, however, does not allow you to see them all at once. Neither can you write a macro for such a purpose because NWP does not have a macro command which returns topic and sub-topic for a given character index. For hyperlink, such a command is available. So here is a macro which will insert destination text after each text portion having a link. E.g. "Apple" having a url link will be "Apple [http://www.apple.com/]". <http://www2.odn.ne.jp/alt-quinon/files/NWPro/link/MakeLinkVisible_nwm.zip> Some additional macros: <http://www2.odn.ne.jp/alt-quinon/files/NWPro/link/MakeLinkIndex_nwm.zip> <http://www2.odn.ne.jp/alt-quinon/files/NWPro/link/ClearAllLinks_nwm.zip> Have nice holidays, Kino As to Italian cinema, I was deeply impressed by Ettore Scola's "Una Giornata particolare". -- ### Make Link Index ### # Insert link destination text after each link with $prefix and $suffix, e.g. # Language of the current insertion point will be applied on texts to be inserted. $prefix = Cast to String ' [' $suffix = Cast to String ']' $highLightColor = Color.newWithRGB255 234, 235, 255 $doc = Document.active if $doc == undefined exit end $selActive = TextSelection.active $attr = $selActive.text.displayAttributesAtIndex $selActive.location $lang = $attr.language $sels = Array.new foreach $text in $doc.allTexts $i = 0 while $i < $text.length $attr = $text.attributesAtIndex $i $range = $text.rangeOfAttributesAtIndex $i if Defined $attr.link $sel = TextSelection.new $text, $range $isContinuous = false if $sels.count if $sels.lastValue.bound == $sel.location if $sels.lastValue.text.isSameObject $text $sels.lastValue.length += $sel.length $isContinuous = true end end end if $isContinuous == false $sels.appendValue $sel end end $i = $range.bound end end if ! $sels.count exit 'No link found, exiting...' end foreach $sel in reversed $sels $attr = $sel.text.attributesAtIndex $sel.location $linkText = $prefix & $attr.link $linkText &= $suffix Push Target Text $linkText $lang.apply Set Highlight Color $highLightColor Pop Target Text $sel.text.insertAtIndex $sel.bound, $linkText end ### end of macro ###