We've finished our move from .Mac to our very own domain
name: http://www.brettgrossphotography.com/ .
Woo hoo!
Change Caption
Current
version: 01
Built on: Aperture 1.5.2
This AppleScript operates on the current selection.
An AppleScript to quickly change the caption of the
selected images. Much easier than the Batch Change window.
It has the option to replace any existing caption or to
append to the existing comment. You can change what is put
between old & new caption by changing the p_appendSep
property. The default is a carriage return.
Download
--
--------------------------------------------------------------------------------------------
property
p_field : "Caption/Abstract"
property
p_appendSep :
return
--
--------------------------------------------------------------------------------------------
on
run
tell
application
"Aperture"
copy
selection
to
m_theSel
try
set
m_initVal
to
value
of
IPTC tag
p_field
of
(item
1
of
m_theSel)
on
error
set
m_initVal
to
""
end
try
tell
AppleScript
set
m_theOut
to
display dialog
("Enter a " & p_field)
default answer
m_initVal
buttons
{"Replace", "Append", "Cancel"}
default button
1
end
tell
repeat
with
m_curImg
in
m_theSel
tell
m_curImg
if
button returned
of
m_theOut
is
"Replace"
then
set
m_newVal
to
(text
returned
of
m_theOut)
else
try
set
m_initVal
to
((value
of
IPTC tag
p_field) & p_appendSep)
as
string
on
error
set
m_initVal
to
""
end
try
set
m_newVal
to
(m_initVal & (text
returned
of
m_theOut))
end
if
make
new
IPTC tag
with properties
{name:p_field,
value:m_newVal}
end
tell
end
repeat
end
tell
end
run
