★★★内容により 300 ～ 最大 1000 pt まで★★★

ご質問者の方のご意図を正確に理解できているかどうかわからないのですが、FileMaker Pro の Ver.10以降で、Webビューア機能とスクリプトトリガの機能を使えばできそうな気がします。

私もこのような手法で情報収集を効果的に行いたいと考えていまして、検索した結果を蓄積するようなデータベースをいずれは自分で作ってみたいと考えているのですが、着手する余裕がありません。

あまり柔軟性が高いとはいえないかもしれませんが、上手く作れれば便利なものができそうな気がしています。

ご参考まで。

http://www.filemaker.co.jp/

Chrome で検索と言うのは難しいので IE を利用しました。

動かし方

1. ファイル先頭の APP_TITLE, SEARCH_TITLE, SEARCH_URL を設定
2. 文字列を選択
3. スクリプトを実行

インストール

1. http://arton.hp.infoseek.co.jp/indexj.html から ruby をインストール
2. 以下のコマンドでライブラリをインストール

gem install win32-clipboard

スクリプト

require "dl"
require "win32ole"

require "rubygems"
require "win32/clipboard"


### 設定

APP_TITLE = "あるマイナーなアプリケーションのウィンドウのタイトル"
SEARCH_TITLE = "Nigitama NigiNigi"
SEARCH_URL = "http://nigitama.com/"

# APP_TITLE = "メモ帳"
# SEARCH_TITLE = "人力検索"
# SEARCH_URL = "http://q.hatena.ne.jp/"

###

VK_CONTROL = 0x11
KEYEVENTF_KEYUP = 0x0002
MB_OK = 0

User32 = DL.dlopen("user32")
EnumWindows = User32["EnumWindows", "IPL"]
GetWindowText = User32["GetWindowText", "ILSI"]
OpenIcon = User32["OpenIcon", "IL"]
CloseWindow = User32["CloseWindow", "IL"]
BringWindowToTop = User32["BringWindowToTop", "IL"]
SetForegroundWindow = User32["SetForegroundWindow", "LL"]
KeybdEvent = User32["keybd_event", "0IILL"]
MessageBox = User32["MessageBox", "ILPPI"]


# メッセージボックスを表示して終了する
def msgbox_and_exit(message)
  MessageBox.call(0, message, "Error", MB_OK)
  exit 1
end

# Window のタイトルを取得
def get_window_text(hwnd)
  buff = "\0" * 256
  r, rs = GetWindowText.call(hwnd, buff, 256)
  return buff.delete("\0")
end

# Window をアクティブにする
def activate_window(hwnd)
  SetForegroundWindow.call(hwnd)
end

# title を含む Window を探す
def find_window(title)
  r = []
  re = Regexp.compile(Regexp.quote(title))
  enum_windows_proc = DL.callback('ILL') {|hwnd,lparam|
    t = get_window_text(hwnd)
    r << hwnd if re.match(t)
    1
  }

  EnumWindows.call(enum_windows_proc, 0)
  if r.empty?
    msgbox_and_exit("Window が開かれていません: #{title}")
  end
  r[0]
end

# title を含む Window が選択している文字列を取得する
def get_selection_text(title)
  activate_window(find_window(title))
  sleep(0.3)
  KeybdEvent.call(VK_CONTROL, 0x1D, 0, 0);
  KeybdEvent.call(0x43, 0x2E, 0, 0);
  KeybdEvent.call(0x43, 0x2E, KEYEVENTF_KEYUP, 0); 
  KeybdEvent.call(VK_CONTROL, 0x1D, KEYEVENTF_KEYUP, 0);
  sleep(0.3)

  Win32::Clipboard.get_data
end

# IE を起動して url を表示する
# すでに起動している場合はその IE を使う
def connect_or_create_ie(title, url)
  shell = WIN32OLE.new("Shell.Application")
  shell.Windows.each do |win|
    if win.FullName =~ /iexplore\.exe$/i and win.LocationName =~ /#{Regexp.quote(title)}/
      return win
    end
  end

  ie = WIN32OLE.new("InternetExplorer.Application")
  ie.Navigate(url)
  sleep(0.1) while ie.Busy
  ie
end

# 入力欄のフォームを取得する
def parent_form(node)
  if node.nodeName == "FORM"
    node
  else
    parent_form(node.parentNode)
  end
end


### メイン

# 選択テキスト取得
word = get_selection_text(APP_TITLE)
if word == nil || word.strip == ""
  msgbox_and_exit("テキストが選択されていません")
end

# IE 起動
ie = connect_or_create_ie(SEARCH_TITLE, SEARCH_URL)
ie.Visible = true
activate_window(ie.HWND)

# 入力欄を取得
input = ie.document.getElementById("question")
if input == nil
  msgbox_and_exit("検索欄が見つかりません")
end

# 入力欄に選択テキストを設定
input.value = "<a>#{word}<b>"

# フォームを取得
form = parent_form(input)
if form == nil
  msgbox_and_exit("検索フォームが見つかりません")
end

# 検索実行
form.submit