จะสร้าง Automator Service เพื่อเปลี่ยนแบบอักษรของข้อความที่เลือกได้อย่างไร

ฉันกำลังพยายามสร้าง "บริการ" ใน Automator ซึ่งจะเปลี่ยนแบบอักษรของข้อความที่เลือกในแอปหน้าสุด

คุณสามารถกำหนดทางลัดให้กับสคริปต์เช่นนี้

tell application "System Events" to tell (process 1 where frontmost is true)
    set {c1, c2} to value of attribute "AXSelectedTextRange" of text area 1 of scroll area 1 of window 1
end tell
tell application (path to frontmost application as text) to tell document 1
    tell characters c1 thru c2
        set font to "Menlo"
        set size to 18
    end tell
end tell

มันทำงานร่วมกับ TextEdit และ WriteRoom แต่มันอาจจะต้องมีการปรับเปลี่ยนสำหรับโปรแกรมอื่น ๆ

อีกทางเลือกที่น่ากลัวจริงๆ:

try
    set old to the clipboard as record
end try
do shell script "textutil -stdin -stdout -format html -convert rtf <<< '<span style=\"font: 18px Menlo\">a</span>' | pbcopy"
tell application "System Events"
    keystroke "v" using command down
    keystroke "c" using {option down, command down}
    keystroke "z" using command down
    keystroke "v" using {option down, command down}
end tell
delay 0.05
try
    set the clipboard to old
end try

หลังจากการวิจัยมากขั้นตอนการทำงานด้านล่างนี้เหมาะกับฉันใน TextEdit, Mail, Notes, Stickies ที่ที่มันไม่ทำงานคือเมื่อแอพใช้ Style (Microsoft Word, Pages, Keynote) เนื่องจากสไตล์นั้นจะแทนที่แบบอักษรที่คุณป้อน วิธีเดียวที่ฉันคิดว่าจะแทนที่สไตล์คือสคริปต์โดยตรงแต่ละแอปเพื่อสร้างสไตล์ที่กำหนดเอง

รหัส ApplesScript:

on run {input, parameters}

    do shell script "pbpaste | textutil -stdin -stdout -convert rtf -font Arial -fontsize 12 | pbcopy"
    tell application "System Events" to keystroke "v" using command down

    return input
end run