'========================================================================================
'by John Beardsworth 23/3/06
'version 1.0
'Loops through selected media items and updates keywords 
'This takes the first selected record and uses it as a template
'========================================================================================

	Const kMsgBoxTitle = "Append keywords"

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


Sub Main()
    Set ivCat = ivApp.ActiveCatalog
    strKeywords = ivCat.Selection(1).Annotations.Keywords 
    For Each ivItem In ivCat.Selection
	ivItem.Annotations.Keywords = ivItem.Annotations.Keywords & ";" & strKeywords
    Next
MsgBox "Done", vbOKOnly, kMsgBoxTitle
   
End sub