¿Cómo crear un archivo RTF en blanco en AppleScript dentro de la carpeta actual?

Si desea utilizar el código que enlaza respuesta, como es, y modificarlo para que haga exactamente lo que se hacen actualmente con la excepción de crear el archivo RTF en la ubicación de la ventana del Finder, a través de el .la aplicación añade a la Barra de herramientas del Finder, a continuación, cambie la siguiente línea de código:

Cambio:

set theCustomRichTextFilePathname to ((path to desktop) & customFilename & ".rtf") as string

A:

tell application "Finder"
    set theCustomRichTextFilePathname to ((folder of the front window as string) & customFilename & ".rtf") as string
end tell

A continuación, guárdelo como un AppleScript .app, no .scpt, y arrastrar y soltar en la Barra de herramientas del Finder.

Mientras que técnicamente responde a su pregunta, sin embargo, probablemente hay otro código que puede necesitar ser modificado, sino que le ayudará a comenzar.