Sub myTextToIE() Rem 選択文字列インターネット検索処理 Rem 記録者:Hitrock Camellia Shinopy Rem 言語:Word VBA Rem 機能:選択した文字列を、インターネット上の検索サイトで検索する。 Rem 注記:myTextToIEを起動して使用。 Rem 第1版:2004/01/19:作成。 Rem *----*----* *----*----* *----*----* *----*----* Rem 参照設定 Microsoft Internet Controls Rem 参照設定 Microsoft HTML Object Library Rem *----*----* *----*----* *----*----* *----*----* Dim myIE As InternetExplorer Dim myDoc As MSHTML.HTMLDocument Dim myURL As String ' myURL = "http://www.dion.ne.jp/mobile/mobile.html" ' DIONのPDA機器向けサイト ' Set myIE = CreateObject("InternetExplorer.Application") With myIE .Navigate myURL .Visible = True Do While .Busy Loop Do Until .ReadyState = READYSTATE_COMPLETE Loop ' Set myDoc = .Document myDoc.all("kword").Value = Selection.Range.Text myDoc.all("ser").Options(0).Selected = True ' Yahoo! Rem myDoc.all("ser").Options(1).Selected = True ' infoseek myDoc.all("image").Click End With ' Set myIE = Nothing Set myDoc = Nothing End Sub ' myTextToIE *----*----* *----*----* *----*----* *----*----*