¿Cómo puedo eliminar el título del trabajo y la empresa de todos los contactos de la libreta de direcciones utilizando AppleScript?

Intenta algo como:

tell application "Address Book"
    set thePeople to every person
    repeat with i from 1 to length of thePeople
        tell item i of thePeople
            set organization to missing value
            set job title to missing value
        end tell
    end repeat
    save
end tell