Un Automator o AppleScript para convertir documentos TextEdit en Apple Notes

Creo que lo siguiente AppleScript es un buen punto de partida. El siguiente código creará un nuevo Nota con el nombre y el texto de cada documento no guardado actualmente abierto en TextEdit .

use Notes : application "Notes"
use TextEdit : application "TextEdit"

repeat with thisDocument in TextEdit's documents
    if modified of thisDocument then
        make new note with properties ¬
            {name:name of thisDocument, body:text of thisDocument}
    end if
end repeat

NOTA: Por alguna razón, el código anterior no siempre reconoce cuando un documento ha sido modificado. Si se encuentra con este problema, utilice el siguiente código en su lugar que tomará nota de cada documento abierto, haya sido editado o no. Esta versión también nombrará la nota con las 2 primeras palabras del documento en lugar del título del documento. Si el documento abierto sólo tiene una palabra, entonces ese será el nombre de la nueva nota

use Notes : application "Notes"
use TextEdit : application "TextEdit"

repeat with thisDocument in TextEdit's documents
    try
        make new note with properties ¬
            {name:(word 1 of text of thisDocument & " " & word 2 of text of thisDocument) as text, body:text of thisDocument}
    on error errMsg number errNum
        make new note with properties ¬
            {name:word 1 of text of thisDocument, body:text of thisDocument}
    end try
end repeat