'========================================================================================
'People to keywords
'by John Beardsworth 24/2/07
'version 1.1
'Loops through selected media items on screen and adds people info to keywords
'Take the comment of varReplace if you want a prefix
'This will help you group people into a single Lightroom keyword tree
'========================================================================================

	Const ivMsgBoxTitle = "People to keywords"

	varFind = ";"
	'varReplace = "People - "
	varReplace = ""

	Set ivApp = CreateObject("iView.Application")
  
	If (ivApp.Catalogs.Count = 0) Then
        MsgBox "Please launch Iview MediaPro.", vbCritical, kMsgBoxTitle
	End If
	Main()


Sub Main()
	Set ivCat = ivApp.ActiveCatalog
	For Each ivItem In ivCat.Selection
		with ivItem.Annotations
		if len(.People) > 0 then  
		.Keywords  = .Keywords & ";" &  varReplace & Replace(.People, varFind, ";" & varReplace) 
		End if
		end with
	Next
	Msgbox "Done" , vbInformation, ivMsgBoxTitle
End sub