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