'========================================================================================
'by John Beardsworth 10/6/06
'version 1.2 - including 3.11 engine improvements
'Loops through selected media items and copies the first item's IPTC to the rest
'Overwrites all fields except event date and keywords
'========================================================================================

	Const kMsgBoxTitle = "IPTC from first to last"

	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
	ivCsmCount = ivApp.ActiveCatalog.CustomFields.Count
    For i = 2 to ivCat.Selection.Count
	set ivItem = ivCat.Selection(i)
	on error resume next
	ivItem.Annotations.AnnotationWriter = ivCat.Selection(1).Annotations.AnnotationWriter
	ivItem.Annotations.Author = ivCat.Selection(1).Annotations.Author
	ivItem.Annotations.AuthorTitle = ivCat.Selection(1).Annotations.AuthorTitle
	ivItem.Annotations.Caption = ivCat.Selection(1).Annotations.Caption
	ivItem.Annotations.Categories = ivCat.Selection(1).Annotations.Categories
	ivItem.Annotations.Copyright = CSTR(ivCat.Selection(1).Annotations.Copyright)
	ivItem.Annotations.CopyrightNotice = CSTR(ivCat.Selection(1).Annotations.CopyrightNotice)
	ivItem.Annotations.Creator = ivCat.Selection(1).Annotations.Creator
	ivItem.Annotations.CreatorAddress = ivCat.Selection(1).Annotations.CreatorAddress
	ivItem.Annotations.CreatorCity = ivCat.Selection(1).Annotations.CreatorCity
	ivItem.Annotations.CreatorCountry = ivCat.Selection(1).Annotations.CreatorCountry
	ivItem.Annotations.CreatorEmail = ivCat.Selection(1).Annotations.CreatorEmail
	ivItem.Annotations.CreatorPhone = ivCat.Selection(1).Annotations.CreatorPhone
	ivItem.Annotations.CreatorPostcode = ivCat.Selection(1).Annotations.CreatorPostcode
	ivItem.Annotations.CreatorState = ivCat.Selection(1).Annotations.CreatorState
	ivItem.Annotations.CreatorTitle = ivCat.Selection(1).Annotations.CreatorTitle
	ivItem.Annotations.CreatorURL = ivCat.Selection(1).Annotations.CreatorURL
	ivItem.Annotations.Credit = ivCat.Selection(1).Annotations.Credit
	ivItem.Annotations.DateCreated = ivCat.Selection(1).Annotations.DateCreated
	ivItem.Annotations.Description = ivCat.Selection(1).Annotations.Description
	ivItem.Annotations.DescriptionWriter = ivCat.Selection(1).Annotations.DescriptionWriter
	ivItem.Annotations.Event = ivCat.Selection(1).Annotations.Event
	ivItem.Annotations.EventDate = ivCat.Selection(1).Annotations.EventDate
	ivItem.Annotations.Genre = ivCat.Selection(1).Annotations.Genre
	ivItem.Annotations.Headline = ivCat.Selection(1).Annotations.Headline
	ivItem.Annotations.Instructions = ivCat.Selection(1).Annotations.Instructions
	ivItem.Annotations.IntellectualGenre = ivCat.Selection(1).Annotations.IntellectualGenre
	ivItem.Annotations.JobIdentifier = ivCat.Selection(1).Annotations.JobIdentifier
	ivItem.Annotations.Keywords = ivItem.Annotations.Keywords & "," & ivCat.Selection(1).Annotations.Keywords
	ivItem.Annotations.People = ivCat.Selection(1).Annotations.People
	ivItem.Annotations.Provider = ivCat.Selection(1).Annotations.Provider
	ivItem.Annotations.Scenes = ivCat.Selection(1).Annotations.Scenes
	ivItem.Annotations.Source = ivCat.Selection(1).Annotations.Source
	ivItem.Annotations.Status = ivCat.Selection(1).Annotations.Status
	ivItem.Annotations.SubjectCodes = ivCat.Selection(1).Annotations.SubjectCodes
	ivItem.Annotations.Country = ivCat.Selection(1).Annotations.Country
	ivItem.Annotations.State = ivCat.Selection(1).Annotations.State
	ivItem.Annotations.City = ivCat.Selection(1).Annotations.City
	ivItem.Annotations.Location = ivCat.Selection(1).Annotations.Location
	ivItem.Annotations.CountryCode = ivCat.Selection(1).Annotations.CountryCode
	ivItem.Annotations.Product = ivCat.Selection(1).Annotations.Product
	ivItem.Annotations.URL = ivCat.Selection(1).Annotations.URL
	ivItem.Annotations.Title = ivCat.Selection(1).Annotations.Title
	ivItem.Annotations.URL = ivCat.Selection(1).Annotations.URL
	ivItem.Annotations.UsageTerms = ivCat.Selection(1).Annotations.UsageTerms
	if ivCount >=1 then ivItem.CustomFields(1).Value = ivCat.Selection(1).CustomFields(1).Value
	if ivCount >=2 then ivItem.CustomFields(2).Value = ivCat.Selection(1).CustomFields(2).Value
	if ivCount >=3 then ivItem.CustomFields(3).Value = ivCat.Selection(1).CustomFields(3).Value
	if ivCount >=4 then ivItem.CustomFields(4).Value = ivCat.Selection(1).CustomFields(4).Value
	if ivCount >=5 then ivItem.CustomFields(5).Value = ivCat.Selection(1).CustomFields(5).Value
	if ivCount >=6 then ivItem.CustomFields(6).Value = ivCat.Selection(1).CustomFields(6).Value
	if ivCount >=7 then ivItem.CustomFields(7).Value = ivCat.Selection(1).CustomFields(7).Value
	if ivCount >=8 then ivItem.CustomFields(8).Value = ivCat.Selection(1).CustomFields(8).Value
	if ivCount >=9 then ivItem.CustomFields(9).Value = ivCat.Selection(1).CustomFields(9).Value
	if ivCount >=10 then ivItem.CustomFields(10).Value = ivCat.Selection(1).CustomFields(10).Value
	if ivCount >=11 then ivItem.CustomFields(11).Value = ivCat.Selection(1).CustomFields(11).Value
	if ivCount >=12 then ivItem.CustomFields(12).Value = ivCat.Selection(1).CustomFields(12).Value
	if ivCount >=13 then ivItem.CustomFields(13).Value = ivCat.Selection(1).CustomFields(13).Value
	if ivCount >=14 then ivItem.CustomFields(14).Value = ivCat.Selection(1).CustomFields(14).Value
	if ivCount >=15 then ivItem.CustomFields(15).Value = ivCat.Selection(1).CustomFields(15).Value
	if ivCount >=16 then ivItem.CustomFields(16).Value = ivCat.Selection(1).CustomFields(16).Value

	ivItem.LabelIndex = ivCat.Selection(1).LabelIndex
	ivItem.Rating = ivCat.Selection(1).Rating
	on error goto 0

    Next
MsgBox "Done", vbOKOnly, kMsgBoxTitle
   
End sub