前回に引き続いてLive Search APIについてです。今回はAPIを利用したアプリケーションを考えてみたいと思います。
Live Search APIを利用したアプリケーション
Windows Live Favoritesのアドインをインストールすると、
残念ながらInternet Exploreでそれを実現するのは難しいので、
Wordテンプレートの作成
Word 2007テンプレートとして開発することにします。新しいプロジェクトウィンドウからWord 2007テンプレートを選択し、
[OK]
プロジェクトにあるファイルThisDocument.
メソッドの作成と検索オプションの指定
まずはWebサイト検索部分から作成します。本連載1回目を参考にサービス参照の追加まで行ってください。名前空間のインポートも済ませます。
検索一連の処理をするメソッドを作ります。引数が検索文字列、
このメソッドの中にSourceRequestオブジェクトを生成するコードを記述します。Webサイトから上位3件のタイトルとURLを取得するように指定しています。
続いてSearchRequestオブジェクトを生成します。Queryプロパティにはメソッドの引数を指定します。
前回に登場しなかったプロパティについて新たな2項目を説明します。
- Flags
雑多な検索オプションを指定します。
- DisableHostCollapsing
同じドメインのURLの結果は通常2つまでしか返ってきませんが、
その制限を無効にします。 - MarkQueryWords
結果のタイトルと説明に検索した単語が含まれている場合、
単語の前後に特定のUTF-8文字が付加されます。主に検索単語の強調に使用することが多いと思います。次のコードでは単語の前後に<b>と</b>を挿入しています。 - None
何も指定しません。これが規定値になります。
このほかにもFlagsプロパティには指定できる項目が用意されています。複数のオプションを指定する場合はOr演算子を使います。
- SafeSearch
検索結果の制限レベルを指定します。
- Strict
成人向けのテキストまたは画像が含まれる結果は除かれます。
- Moderate
成人向けの画像が含まれる結果は除かれます。これが規定値になります。
- Off
検索結果の制限を行いません。
最後にMSNSearchPortTypeClientオブジェクトのSearchメソッドを呼び出し、
Resultオブジェクトを返します。 コンテキストメニューへメニューアイテムの追加
Wordのコンテキストメニューに検索結果を示すメニューアイテムを追加する処理を書きます。最初にインポートの設定をしておきます。
ThisDocumentクラスには、
右クリックされたとき既定の処理をする前に発生するBeforeRightClickイベントがあるので、 これを利用します。コードエディタの左上のドロップダウンリストから 「(ThisDocument イベント)」を選択し、 右上のドロップダウンリストから 「BeforeRightClick」 を選択すると次のようにイベントハンドラのコードがクラスに追加されます。
このイベントハンドラ内に処理を追加していきます。
文書で選択されているテキストはパラメータeにより取得できます。実際には、
テキストが選択されていない状態でもカーソルの右側にある文字が1文字格納されています。そのため、 選択文字列の先頭と末尾の空白を削除した後に2文字以上ある場合、 検索することにします。 Officeのメニューアイテムやツールバーのボタンなどのコントロール群はすべてCommandBarオブジェクトから成っています
[1]。 コンテキストメニューにメニューアイテムを追加するためには、
コンテキストメニューを成すCommandBarオブジェクトを取得し、 これが持つCommadBarControlコレクションに新たなメニューアイテムを追加します。そして、 メニューアイテムのCommadBarButtonオブジェクトに適切な値を設定するという手順になります。 文書を右クリックしたとき表示される標準のコンテキストメニューのCommandBarsオブジェクトの取得は次のようになります。
作成したSearchメソッドにより検索結果を取得し、
結果件数分だけメニューアイテムを作成しコンテキストメニューに追加します。 textCommandBar.
Controls. Addメソッドの第1引数にMsoControlType. msoControlButtonを指定し、 戻り値が追加されたCommandBarButtonオブジェクトになります。第4引数のTrueは一時的なコントロールであることを指定しています。 メニューアイテムのキャプションにはタイトルをそのまま表示し、
URLを開くときに必要になるURLの文字列はTagプロパティを利用して記憶させておきます。また、 AddHandlerステートメントを使いメニューアイテムのClickイベントをCommandBarButton_ Clickプロシージャに関連付けています。プロシージャはこの後に作成します。 Clickイベントに関連付けるプロシージャは次のようになります。Ctrl.
TagにはURLを入れてありますので、 Process. Startメソッドを使用してURLに関連付いているアプリケーションを起動します。 このまま実行すると右クリックするたびにメニューアイテムが追加されてしまいます。コンテキストメニューのCommandBarsオブジェクトを取得した後にResetメソッドを使い元の状態に戻しておきます。
実行と配布
以上のコードを以下にまとめましたので参考にしてください。例外処理も追加してあります。
- ThisDocument.
vbのダウンロード - ThisDocument.
vbファイル
実行して図4のように選択したテキストの検索結果がメニューに表示されれば完成です。クリックするとそのWebサイトに移動します。いかがでしたでしょうか。
このテンプレートを配布する場合は、
ソリューションエクスプローラでプロジェクト名を右クリックし、 メニューの 「発行」 を選択します。すると、 ウィザードによりセットアッププログラムsetup. exeの作成ができます [2]。また、 セットアッププログラムに含めるコンポーネントなどの設定はプロジェクトのプロパティの発行タブから可能です。