Atajo de teclado para corregir las faltas de ortografía

No se me ocurrió nada mejor que esto:

--delay 0.3
--activate application "TextEdit"
tell application "System Events" to tell (process 1 where frontmost is true)
    set wasshown to title of windows contains "Spelling and Grammar"
    keystroke "w" using option down
    if not wasshown then keystroke ":" using command down
    tell (window 1 where title is "Spelling and Grammar")
        delay 0.05
        try
            select row 1 of table 1 of scroll area 1
        end try
        click button "Change"
        if not wasshown then click button 1
    end tell
end tell

Para que el comando de pulsación de teclas funcione, cree ~/Library/Keybindings/ y guardar esto como DefaultKeyBinding.dict :

{
    "~w" = selectWord:;
}

Otros métodos no eran realmente utilizables cuando, por ejemplo, la palabra bajo el signo de interrogación no estaba subrayada.

Muchas palabras no tienen ninguna sugerencia. Creo que es más fácil pulsar ⌘: y volver a escribir las palabras manualmente, o pulsar ⌘; y hacer doble clic en las palabras sugeridas.

Añadiendo changeSpelling: a DefaultKeyBinding.dict no parece funcionar.

En los Macs con Touch Bar, pon el cursor al final de la palabra mal escrita. Si está cerca, la Touch Bar mostrará la ortografía correcta de la palabra. Toca la palabra correcta en la Touch Bar para sustituir la palabra mal escrita por ella.