'========================================================================================
'Search and replace text
'by John Beardsworth 03/07/06
'version 1.1
'Loops through media items 
'========================================================================================

	Const txtOptions1 = "Word to search for"
	Const txtOptions2 = "Replace it with..."
	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

    varFind = InputBox(txtOptions1)
    varReplace = InputBox(txtOptions2, , varFind)

    varContinue = MsgBox("Replace " & varFind & " with " & varReplace & "?", vbQuestion + vbOKCancel)
    If varContinue <> vbCancel Then
    
        For Each ivItem In ivCat.Selection
        ivItem.Annotations.Caption = Replace(ivItem.Annotations.Caption, varFind, varReplace)
        ivItem.Annotations.Title = Replace(ivItem.Annotations.Title, varFind, varReplace)
        ivItem.Annotations.Product = Replace(ivItem.Annotations.Product, varFind, varReplace)

        Next
        MsgBox "Done", vbInformation, kMsgBoxTitle
    
    End If
    
End Sub