tell application id "DNtp"
	set theSelection to selection
	if theSelection is {} then
		display dialog "Please select one or more PDF files first." buttons {"OK"} default button "OK"
		return
	end if
	
	repeat with theItem in theSelection
		if type of theItem is PDF document then
			set pdfText to plain text of theItem
			add custom meta data pdfText for "Tinderboxtext" to theItem
		end if
	end repeat
	
	display dialog "Text extraction complete!" buttons {"OK"} default button "OK"
end tell