スクリプト名:Japanese
(*
このHTML書類はぴよまるソフトウェアさんの AS Publisher v1.0 を使用して作成されました。
http://www.appleco.jp/piyomarusoft/

このページ下部にある「新規書類にペースト」というリンクをクリックすると
スクリプトエディタが起動して新規にスクリプト書類が作成されます。
適当なファイル名を付けて"スクリプト"形式で保存してください。
*)
tell application "System Events" to set frontApp to (name of (path to frontmost application))
tell application frontApp to activate
delay 1
set the clipboard to ""
set x to 0
repeat until ((the clipboard) is not "") or (x = 10)
  tell application "System Events" to keystroke "c" using command down
  
set x to (x + 1)
  
delay 1
end repeat
tell application "System Events"
  if (text of (the clipboard)) is not {} then
    set theWord to (text of (the clipboard)) as string
    
tell application "gooDict" to activate
    
tell process "gooDict"
      keystroke "j" using command down
      
set value of combo box 1 of window 1 to theWord
      
if (focused of combo box 1 of window 1) is false then keystroke tab using control down
      
keystroke return
    end tell
  else
    return
  end if
end tell

▼新規書類にペースト  ▼カーソル位置にペースト  ▼ドキュメント末尾にペースト

AS Publisher v1.0(ぴよまるソフトウェア)