9さんのの2番目の、excite翻訳のIE版。
一番上のウインドウを和訳して進ウインドウに表示します。
tell application "Internet Explorer"
set q to item 1 of (GetWindowInfo (item 1 of (ListWindows)))
OpenURL "http://www.excite.co.jp/world/url/body/?body="; & q & "&trans_type=enja-ATL" toWindow 0
end tell