ここ、Githubで作成しました。
https://gist.github.com/1616556
現在のソースは次のとおりです。
on run {input, parameters}
tell application "System Events"
set _appname to name of first process whose frontmost is true
end tell
set word_count to count words of (input as string)
set character_count to count characters of (input as string)
tell application _appname
display alert "" & word_count & " words, " & character_count & " characters"
end tell
return input
end run
Automator.appを使用して新しいサービスを作成し、[AppleScriptの実行]アクションを選択します。このコードをテキストボックスに貼り付け、単語数と文字数として保存します。次に、新しいアプリに切り替え、テキストを選択し、コンテキストメニューを開いて新しいオプションを見つけます。