Devonthink/extractTexttoDevonthink.scpt

16 lines
494 B
AppleScript

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