La limpieza de los años de nacimiento de 2000 en mi Libreta de Direcciones

Probar:

set targetYear to "2000"
set targetGroup to {}

tell application "Address Book"
    set thePeople to every person whose birth date ≠ missing value
    repeat with aPerson in thePeople
        set birthYear to (aPerson's birth date)
        if my yearCheck(birthYear, targetYear) then set end of targetGroup to (contents of aPerson)
    end repeat
    if targetGroup ≠ {} then set selection to targetGroup
    activate
end tell

on yearCheck(theDate, theYear)
    if theYear = (year of theDate as text) then return true
    return false
end yearCheck

Añadido por la cooperativa para los novatos como él. Esto funciona. Lo que yo hice: Abrir la Libreta de Direcciones, haga clic en Todos los Contactos, cerca de la Libreta de Direcciones, cerca de la conexión a Internet (sólo para estar seguro), copiar y pegar el script de arriba en el Editor AppleScript, pulse Compilar, pulse Ejecutar, espere hasta que "Ejecución...", desaparece. La Libreta de direcciones está abierto ahora con las tarjetas con 2000 seleccionado. Los coloque en un Grupo de trabajo para continuar...