If you have a word or a section of your Nisus document that is embedded with a hyperlink, this macro will select it and turn the blue underlined words into the display text and the underlying link into the href.
Again, my thanks to Kino. I took code from other things he's done on this forum to make this work.
Code: Select all
Select Document Start
While Select Next Link
    $sel = TextSelection.active
    $text = $sel.subtext
    $attr = $sel.text.displayAttributesAtIndex $sel.location
    $url = $attr.link
    Set Link ''
    Insert Text "<a href=\"$url\">$text</a>"
end
Select End