How to batch change Caption with version name?

Question

I'm using Aperture 3.0.2. I want to caption the photos based on version name. This way when I export the photos from Aperture to Picasaweb, the caption will show. This will allow the visitors to tell me which image proof that I need to re-touch.

Answer 1

I found my own answer. I wrote this AppleScript. It's my first AppleScript ever. It's nice to Goggle and found some other resources.
tell application "Aperture"
set imageSel to (get selection)
if imageSel is {} then
error "Please select an image."
else
repeat with i from 1 to count of imageSel
tell library 1
tell item i of imageSel
make new IPTC tag with properties {name:"Caption/Abstract", value:get name}
end tell
end tell
end repeat
end if
end tell