Newbie with question about keywords

DEVONthink Tips
7

Here’s a script to convert keywords to tags. This might be part of a future release but please note that keywords are already searchable.


-- Convert keywords to tags
-- Created by Christian Grunenberg on Wed Mar 03 2010.
-- Copyright (c) 2010. All rights reserved.

tell application id "com.devon-technologies.thinkpro2"
	try
		set these_items to the selection
		if these_items is {} then error "No selection."
		
		repeat with this_item in these_items
			try
				set theMD to meta data of this_item
				set theKeywords to |kMDItemKeywords| of theMD
				if (exists theKeywords) and (theKeywords is not "") then
					set {od, AppleScript's text item delimiters} to {AppleScript's text item delimiters, ","}
					set theTags to text items of theKeywords
					set AppleScript's text item delimiters to od
					set theTags to (parents of this_item) & theTags
					set the tags of this_item to theTags
				end if
			end try
		end repeat
	on error error_message number error_number
		if the error_number is not -128 then display alert "DEVONthink Pro" message error_message as warning
	end try
end tell