Convert text links to Devonthink links

DEVONthink
4

Here’s a simple example:

tell application id "DNtp"
	set theLinks to ""
	repeat with theRecord in (selection as list)
		tell text of theRecord
			repeat with theAttribute in attribute runs
				if exists URL of theAttribute then set text of theAttribute to ((URL of theAttribute) as string)
			end repeat
		end tell
	end repeat
end tell