先日の日経パソコンのオンライン版での「Wordマクロで仕事革命」に、Webの串刺し検索の方法をご紹介させていただきました。
その後、いろいろとご質問や、お役立ちサイトの情報をお寄せいただきまして、どうもありがとうございました。随時お答えいたします。
以前からいろいろと情報をご提供いただいているKさんからは、膨大な情報をいただき、非常に感謝しております。いつもありがとうございます。
また、医薬系の会社に勤務する読者のかたからも情報をいただきました。ありがとうございます。
お二方にご了承を得た上で、以下のようにサイト情報を共有させていただきます。
日経パソコンの記事で紹介しておりますマクロにコピペで使えますので、お試しください。
ちなみに、私は以下のサイトを全て登録してみましたが、これパワフルですよ。１０カ所以上のサイトで串刺し検索ですからね。パソコンに仕事をさせている感覚を味わえます。
※：このページには、随時情報を追加していきます。
※：検索語句（日本語・英語）により、うまく結果が表示されないこともあります。
全てを確認したわけではありませんが、そのようなこともあることをご了承のうえでお試しください。
以下のように、3行目に myURL = "●●●" を登録してみてください。
選択されている文字列を、指定したサイトにて検索します。
Sub Web検索() Dim myURL As String myURL = "http://www.ncbi.nlm.nih.gov/pubmed?term=" & Selection.Text ActiveDocument.FollowHyperlink Address:= myURL End Sub
＜目次＞
お役立ちサイト
▼PubMed
myURL = "http://www.ncbi.nlm.nih.gov/pubmed?term=" & Selection.Text
▼Yahoo辞書
myURL = "http://dic.search.yahoo.co.jp/search?ei=UTF-8&p=" & Selection.Text
▼Yahoo百科事典
myURL = "http://100.search.yahoo.co.jp/search?ei=UTF-8&p=" & Selection.Text
▼Merriam Webster 辞書
myURL = "http://www.merriam-webster.com/dictionary/" & Selection.Text
▼Merriam Webster 類義語
myURL = "http://www.merriam-webster.com/thesaurus/" & Selection.Text
▼Merriam Webster 医薬
myURL = "http://www.merriam-webster.com/medical/" & Selection.Text
▼Merriam Webster 百科事典
myURL = "http://www.merriam-webster.com/concise/" & Selection.Text
▼OneLook.com （こちらの記事で紹介しました）
myURL = "http://www.onelook.com/?w=" & Selection.Text & "&ls=a"
▼LSD （こちらの記事で紹介しました）
myURL = "http://lsd.pharm.kyoto-u.ac.jp/weblsd/c/begin/" & Selection.Text
▼Wikipedia 日本語
myURL = "http://ja.wikipedia.org/wiki/" & Selection.Text
▼Wikipedia 英語
myURL = "http://en.wikipedia.org/wiki/" & Selection.Text
▼J-GLOBAL 全体
myURL = "http://jglobal.jst.go.jp/search.php?t=0&q=" & Selection.Text
ActiveDocument.FollowHyperlink Address:=myURL
▼J-GLOBAL 科学技術用語
myURL = "http://jglobal.jst.go.jp/search.php?t=6&q=" & Selection.Text
▼SCIRUS
myURL = "http://www.scirus.com/srsapp/search?q=" & Selection.Text
▼CiNii
myURL = "http://ci.nii.ac.jp/search?q=" & Selection.Text
▼OALD (Oxford Advanced Learner's Dictionary)
myURL = "http://www.oxfordadvancedlearnersdictionary.com/dictionary/" & Selection.Text