Removes URLs from the selected Devonthink record

Remove URL.applescript

tell application id "DNtp"
	try
		set this_selection to the selection
		set this_count to count of this_selection
		if this_count > 0 then
			show progress indicator "Removing URL" steps this_count
			repeat with this_item in this_selection
				set the URL of this_item to ""
			end repeat
			hide progress indicator
		end if
	on error error_message number error_number
		hide progress indicator
		if the error_number is not -128 then display alert "DEVONthink Pro" message error_message as warning
	end try
end tell