Extracting text with specific linked Bates citation

Thanks for sharing this script! This should be doable without user interface scripting and parsing actually. E.g. this snippet gets the basically necessary information:

tell application id "DNtp"
	set theRecord to content record of think window 1
	set theUUID to uuid of theRecord
	set theTitle to name of theRecord
	set quotedText to (selected text of think window 1) as string
	set sourceLink to reference URL of think window 1
end tell