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