Ho messo insieme il seguente codice di applicazione che ha risolto il mio problema. Per ottenere la funzione di titlecase, ho scaricato e installato "Satimage osax" dal link .
tell application "Contacts"
set All_Contacts to every person whose name contains "test"
--set All_Contacts to every person
tell me to display dialog "Are you sure you want me to correct city of " & (count of All_Contacts) & " contacts?"
repeat with My_Contact in All_Contacts
set All_Addresses to (every address of My_Contact)
repeat with Current_Address in All_Addresses
set city of Current_Address to (titlecase (get city of Current_Address))
end repeat
end repeat
save
end tell