Limpiando los años 2000 de nacimiento en mi libreta de direcciones

Prueba:

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

Agregado por el OP para novatos como él. Esto funciona. Lo que hice: abrir la libreta de direcciones, hacer clic en Todos los contactos, cerrar la libreta de direcciones, cerrar la conexión a Internet (solo para estar seguro), copiar y pegar la secuencia de comandos anterior en el editor AppleScript, presionar Compilar, presionar Ejecutar, esperar hasta que se esté ejecutando ... "desaparece. La libreta de direcciones ahora está abierta con las tarjetas con 2000 seleccionadas. Póngalas en un grupo para seguir trabajando ...

Publiqué accidentalmente una respuesta aquí sobre esta pregunta para:

Eliminando solo años de nacimiento un grupo en mi libreta de direcciones

Como está relacionado, le dejaré un enlace a la otra pregunta.