Escribir AppleScript para cambiar un documento TextEdit de archivo .rtfd a .rtf

El comentario de @user3439894 proporciona una mejor solución, pero como esto está etiquetado como applescript, aquí hay una respuesta applescript.

Le pedirá al usuario que elija uno o más rtfd, los copie en el escritorio, los convierta en carpetas reales, extraiga el componente de texto/rtf de cada uno en el escritorio y elimine las partes no deseadas. No sé cómo se obtienen realmente los archivos de destino, así que fui con "elegir" y se limitó a utilizar el escritorio como el lugar de trabajo.

use scripting additions
-- Choose one or more rtfd
set aFilList to {}
set aFilList to (choose file with multiple selections allowed)
tell application "Finder"

    repeat with aFil in aFilList

        -- copy rtfd to desktop; collect name information       
        set dFil to duplicate aFil to (path to desktop folder)
        set {adNam, ddNam, dwXt} to {displayed name of aFil, displayed name of dFil, ".rtf"}
        --> {"filename", "filename 2", ".rtf"}, or {"filename", "filename copy", ".rtf"}

        -- Remove 'd' from extension to reveal as type:folder
        set name of dFil to ddNam & dwXt
        set dFil to ((path to desktop) & ddNam & dwXt as text)

        -- Move rtf to desktop and rename; trash intermediary files
        move file "TXT.rtf" of alias dFil to (path to desktop) with replacing
        set oFil to (path to desktop) & "TXT.rtf" as text
        set name of alias oFil to (adNam & dwXt)
        delete aFil
        delete dFil

    end repeat
end tell

Para un solo documento, a menos que haya formato que quieras conservar, lo más fácil es guardarlo primero como documento de texto plano y luego volver a guardarlo como RTF. O bien pegar primero la selección en BBEdit y luego seleccionar todo, copiar y pegar en TextEdit.

Si quiere guardar el formato, y sólo hay unos pocos iconos u otros objetos, simplemente elimínelos y luego guarde como RTF.