* インフォシークWeb翻訳 [#d90707e5]
-ページ: [[Macro/投稿]]
-作者: [[maru]]
-カテゴリー: vbs
-投稿日: 2005-06-26 (日) 01:01:37
** メッセージ [#n856ad34]
選択範囲のアドレスをインフォシークWeb翻訳
#code(vbscript){{
'otw_info_WebTrans.vbs --------------------------------
'インフォシークWeb翻訳
sWord = Editor.ExpandParameter("$C")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = true
naviURL = "http://honyakuinfoseek.infoseek.co.jp/amiweb/browser.jsp" _
& "?langpair=1%2C2&url=" & sWord _
& "&display=2&lang=JA&toolbar=yes&c_id=honyakuinfoseek"
objIE.Navigate( naviURL )
}}
----
#comment