グーグル検索のできるメモアプリ WINアプリ

質問

お世話になります。
PC環境は、以下のとおりです。
OS：WIN10　pro

質問内容は、テキスト中の語句を選択し、右クリックにてグーグル検索が可能なメモアプリ・テキストエディッタが合ったらご教示頂きたいです。

現在、WINDOWS標準搭載されているテキストエディッタのメモ帳を
使用しており、このアプリを使い簡易的な住所録として使っています。
住所録中の会社名や住所をグーグル検索する場合は、検索したい語句を選択・コピーし、ブラウザーにてペーストし、検索しております。
このアプリ（メモ帳）の機能でも文字選択後、右クリックでBing検索は出来るのですが、グーグルでの検索を考えております。

条件：1.住所録以外にも、メモとしての使用もある為、
　　　　住所録に特化したアプリではないこと。

　　　2.文字数が膨大な為、それに対応できるアプリであること。

　　　3.プログラミングを目的としてはいないので、
　　　　とにかくシンプルであること。

　　　4.Webブラウザー上でクラウド等使わずに、
　　　　PCアプリとして使えるもの。

　　　5.フリーソフトであること。

わがままな条件ではありますが、これらの内容のWINDOWSアプリを
ご存知の方がいらっしゃいましたら、ご教示下さると助かります。

以上、宜しくお願い致します。

回答No.4

kkkkkm · ベストアンサー

> 文字列を選択する箇所・タイミングによっても検索結果は、まちまちです。

原因がわかりました。

注:下記マクロを書き替えた場合サクラエディタを再起動しないと右クリックに登録されたマクロが更新されません。

If Not IsTextSelected Then
SelectWord()
End If

の部分は文字列を選択していない場合、カーソル位置の単語を選択された状態にするという機能なのですが、選択しているかどうかの判断が現在では正常に機能してませんでした。マクロ作成時には機能していたのだと思います。

そのせいで、自動で選択範囲が変更されて選択範囲がまちまちになってます。

上記の機能を残したままでしたら以下に変更して試してみてください。

Option Explicit
Dim keyword, shell
If Editor.IsTextSelected = 0 Then
Editor.SelectWord()
End If
keyword = Editor.GetSelectedString(0)
' 選択されている文字列がある場合のみGoogle検索'
If keyword <> "" Then
Set shell = CreateObject("Shell.Application")
shell.ShellExecute "https://www.google.co.jp/search?q=" & keyword
End If

機能が不要の場合は以下に変更して試してみてください。

Option Explicit
Dim keyword, shell
keyword = Editor.GetSelectedString(0)
' 選択されている文字列がある場合のみGoogle検索'
If keyword <> "" Then
Set shell = CreateObject("Shell.Application")
shell.ShellExecute "https://www.google.co.jp/search?q=" & keyword
End If

お礼

早急なご対応感謝致します。
マクロを把握していなかったので、出来るのか心配ではありましたが、なんとか成功しました。
そして当初のマクロがなんで出来なかったのかも、ご説明頂き、多少理解しました。
私の希望に沿った内容でしたので、大変感動し助かりました。
ありがとうございました。

回答No.3

kkkkkm

こちらはいかがでしょう。
サクラエディタ
https://sakura-editor.github.io/
サクラエディタにGoogle検索機能を追加するマクロ
https://www.banana-juice.com/tech/articles/sakura-editor/google-search-macro

補足

出張等が重なり、お返事をするのが遅くなってしまい、申し訳ありませんでした。
今回、サクラエディッタを試させてもらいました。
マクロを組めば、あらゆる事が自動化される、良いテキストエディッタであります。

しかし、私の設定が悪かったせいなのか、実際に文字を選択し、右クリック→グーグル検索を選択後、文字列全体が検索されません。例を出すと以下になります。
例）　あいうえお12345ABCDE
上記例をあ～Eまで選択しグーグル検索をすると、
あいうえお12345ABCDEで検索は出来ずに、ABCDEだけの、文字の検索結果だったり、Eだけの文字だけの検索結果になってしまいます。

どうしてなのか分からず、文字列を選択し→右クリック→グーグル検索を押す際に、選択文字列を凝視していたところ、とても説明が難しいのですが、上記例で例えます。
選択文字列が、あいうえお12345ABCDEとなっている所が、右側へ瞬時に選択範囲が減って行く状態・選択範囲が右側の文字列へ変わる現象が目にとれました。
文字列を選択する箇所・タイミングによっても検索結果は、まちまちです。
Eの後ろの濁点だけが、検索されることも頻繁です。

回答No.2

asciiz

どうもすみません、「メモ帳」のメニューに「Bingで検索(S)」があり、本当にBing検索しか出来ないのですね…。

メモ帳アプリの右クリックメニューを増やす方法を探したり、検索URLを変更したりできる方法は無いのかどうか探してみたんですが、ちょっとうまいものが見つかりません。

ただ、Bingの検索URLは
https://www.bing.com/search?q=検索文字列
そしてGoogleの検索URLは
https://www.google.com/search?q=検索文字列

であるので、ホスト名解決だけ騙せればGoogle検索できるのではないかと、hostsファイルに

172.217.174.110 bing.com www.bing.com
(↑Google.com のIPアドレス)

と書いてみたんですが、騙されてくれません。

それならば、インターネットルータの方で宛先IP変換を仕込んでみれば…? と考えてみたのですが、現在試せる状況にないので、あとでまた試してみたいと思います…。

お礼

ご回答ありがとうございます。
色々なアプローチがあるんだと関心しました。
参考になりました。
ありがとうございます。

回答No.1

asciiz

こちらの

・Windowsの検索をEdge固定でなく「既定ブラウザ」にするアプリ
・Windows検索をBingからGoogleに変更するアプリ

の両方をしてくれるアプリで、メモ帳からもGoogle検索できるようになるかもしれません。
試してみてください。

＞Windows 10 の Web 検索を Edge から既定のブラウザに、検索エンジンを Bing から Google に変更する
＞https://loumo.jp/archives/24082

お礼

ありがとうございます。