ネットが遅くてイライラしてない!?

ワードの右クリックメニュー「オプションの追加」について教えてください。
ワードは2010です。

ここにgoogleの検索を追加したいのですが、できるのでしょうか?
単純にgoogle.co.jpのアドレスを追加するだけでは、ダメなようです。

ご存知のかた、いらしたら教えてください。

ワード内の単語を右クリックでgoogle検索できたら大変便利だと思います。
できることなら、辞書も追加したいと考えています。
http://cjjc.weblio.jp/

よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (4件)

> ワード内の単語を右クリックでgoogle検索できたら大変便利だと思います。


> できることなら、辞書も追加したいと考えています。

使っていませんが、下記URLの無料ソフトで可能のように思います。

「右クリックでGoogle!」
http://www.vector.co.jp/soft/winnt/writing/se481 …
    • good
    • 0

こんにちは。


興味あったのでVBAを簡単に書いてみました。
これは特にダウンロードは不要です。
選択中のテキストをWeb検索するボタンを追加するマクロです。

Normal.dotm に 新規の標準モジュールを追加して、
下記コードを貼り付けて、
 Private Sub ポップアップメニュー設定()
を一度だけ実行すれば、右クリックメニューに
"Web検索"ボタンが追加されます。
そのまま、Normal.dotmを上書き保存すれば継続的に利用できます。
 Private Sub ポップアップメニュー設定解除()
を実行すれば元の設定に戻すこともできます。
Win7/64 WD2010/64にて動作確認しました。
習作ではありますが、易しく書けているとは思います。
宜しければ、試してみてください。
扱いが解らないようでしたら訊いてください。


' ' Normal.dotm  標準モジュール
' ' / 選択中の文字列をエンコードして 指定のサイトで検索
Private Sub SearchWeb()
  Dim sURL As String

  sURL = Selection.Text
  sURL = Replace(Trim$(sURL), vbCr, "")
  If sURL = "" Then Exit Sub
  sURL = EncodeUTF8(sURL)
  sURL = Application.CommandBars.ActionControl.Parameter & sURL

  ThisDocument.FollowHyperlink sURL
End Sub

' ' /// 文字列をURLエンコードして返す(UTF-8)(Office 64bit対応)
Private Function EncodeUTF8(ByVal Source As String) As String
  Dim oHtmlFile As Object
  Dim oElement As Object

  Source = Replace(Source, "\", "\\")
  Source = Replace(Source, "'", "\'")

  Set oHtmlFile = CreateObject("htmlfile")
  Set oElement = oHtmlFile.createElement("span")
  oElement.setAttribute "id", "response"
  oHtmlFile.appendChild oElement
  oHtmlFile.parentWindow.execScript _
        "document.getElementById('response').innerText " _
        & "= encodeURIComponent('" & Source & "');", "JScript"
  EncodeUTF8 = oElement.innerText
End Function

' ' / ポップアップメニューにコントロール追加
Private Sub ポップアップメニュー設定()
On Error GoTo ErrOut_
  With Application.CommandBars("Text")
    With .Controls.Add(msoControlPopup)
      .Caption = "Web検索"
      With .Controls.Add(msoControlButton)
        .Caption = "Google"
        .Parameter = "https://www.google.co.jp/search?q="
        .OnAction = "SearchWeb"
      End With
      With .Controls.Add(msoControlButton)
        .Caption = "Weblio"
        .Parameter = "http://www.weblio.jp/content/"
        .OnAction = "SearchWeb"
      End With
    End With
  End With
  Exit Sub
ErrOut_:
  MsgBox Err & vbLf & Err.Description _
    & "エラーの為、ポップアップメニュー設定できませんでした。"
End Sub

' ' / ポップアップメニューから追加したコントロールを削除
Private Sub ポップアップメニュー設定解除()
  Dim oc As CommandBarControl
On Error Resume Next
  For Each oc In Application.CommandBars("Text").Controls
    Select Case oc.Caption
    Case "Web検索", "Google", "Weblio"
      oc.Delete
    End Select
  Next
End Sub
    • good
    • 0

No.2の回答者です。

No1の回答とかぶってしまいましたね。
調べ物をしていて回答があるのを確認するのを忘れていました。

右クリックメニューについては、Word2007以降はツールバーでなくなり
カスタマイズしにくくなりました。
マクロで操作するしかないみたいなので、アドイン登録したほうが簡単
だと思いますよ。
    • good
    • 0

マクロを使わないと無理みたいですね。



以下のブログで「右クリックでGoogle! 」というアドインが紹介されています。
登録が必要なようですがフリーなので使えると思います。
http://ameblo.jp/gidgeerock/entry-10577202798.html
http://www.vector.co.jp/soft/winnt/writing/se481 …

私は、このアドインを試したことがないのですが、環境的に無理みたいな記事も
あるので未検証なのですが、試されてはいかが。
(作者は丁寧に対応してくださるようなので)
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qファイルを右クリックした時に出るのメニューはどうやって編集すればよいの

ファイルを右クリックした時に出るのメニューはどうやって編集すればよいのでしょうか?

ファイルを右クリックしたときにいくつかメニューが出てきますが,

そこに特定のソフトで開くようなコマンドを追加したいです.
OSはWindows 7の32bitです.

regeditでレジストリエディタを開いて,
HKEY_CLASSES_ROOT\Directory\Background\shell
のところに追加してみましたが,ここだとファイル選択時には出てきません.

ファイルを選択していないとき(何も無いところ)だと出てくるのですが,それだと意味がありません.
ファイル選択時に特定のソフトを起動させるにはどうしたらよいでしょうか?

よろしくお願いします.

Aベストアンサー

ごくごく手軽な手法として「窓の手」を導入するのはいかがでしょうか?
かなり定番ですが。

参考URL:http://gigazine.net/index.php?/news/comments/20100205_madonote_windows7/

Qワードの右クリックメニューに「形式を選択して貼り付け」を入れられないでしょうか?

タイトルのまんまですが・・・
ネットで検索した文章をワードに貼り付けることがよくあるのですが、形式がそのままだとHTMLになってしまうので、メニュー→編集→形式を選択して貼り付け→テキスト で貼り付けています。
いちいちメニューから選択するのが面倒なので、右クリックメニューでできるようにしたいのです。
エクセルでは最初から右クリックで「形式を選択して貼り付け」ができますが、同じようにできないでしょうか?

Aベストアンサー

「表示」メニューから、「ツールバー」-「ユーザー設定...」を実行します。
「ユーザー設定」ダイアログの「ツールバー」タブを選択し、「ショートカットメニュー」にチェックを入れます。
チェックを入れると、「ショートカットメニュー」というツールバーが表示されます。
「ショートカットメニュー」ツールバーの「テキスト」をクリックしてプルダウンの中から「テキスト」を選択します。
すると、右クリックした時のショートカットメニューが表示されます。

これを表示したまま、「ユーザー設定」ダイアログの「コマンド」タブを選択し、分類の「編集」をクリックすると、右の「コマンド」リストの中に「形式を選択して貼り付け...」がありますので、これをテキストの右クリックメニューにドラッグ&ドロップしてください。

QWord2013表 右クリック セル内の配置

Word2013

Word2010までは、表のセルを選択し、右クリックのメニューに
「セルの配置」という項目がありましたが
Word2013では、なくなったのでしょうか
Word2013の右クリックメニューに「セルの配置」を追加する方法はありますか

画像を参照してください

表の文字配置調整
http://tech.kihon.jp/word/918

Aベストアンサー

No.1の回答者です。
質問にある参考サイトは表ハンドルを使った表全体の状態でしたね。

前のマクロでの設定は、個別セル内の文字入力状態で有効な方法ですが、
表全体では表示されません。右クリックメニューが違うためです。

表全体の場合
' -----------------------------------------------------

Public Sub ContextMenu_TableWhole()

 Const MenuCaption As String = "セルの配置"

 On Error Resume Next

 Application.CommandBars("Whole Table").Controls(MenuCaption).Delete
 On Error GoTo 0

 With Application.CommandBars("Whole Table").Controls.Add(Type:=msoControlPopup, Before:=14)
  .Caption = MenuCaption

' セルの配置のコマンドを設定
  .Controls.Add ID:=3914
  .Controls.Add ID:=3915
  .Controls.Add ID:=3916
  .Controls.Add ID:=3917
  .Controls.Add ID:=3918
  .Controls.Add ID:=3919
  .Controls.Add ID:=3920
  .Controls.Add ID:=3921
  .Controls.Add ID:=3922

 End With
End Sub

' -----------------------------------------------------
基本的には同じものですが、選択した右クリックメニューが違う場合、
コマンドバーの名前も違ってくるので、それぞれのコマンドバーごとに
設定しないと登録できません。表関連のコマンドバー名を調べてから、
必要な右クリックメニューごとに個別に登録してくださいね。
コマンドバーは質問者自身で調べてください。
すべてを書くつもりはないので。

No.1の回答者です。
質問にある参考サイトは表ハンドルを使った表全体の状態でしたね。

前のマクロでの設定は、個別セル内の文字入力状態で有効な方法ですが、
表全体では表示されません。右クリックメニューが違うためです。

表全体の場合
' -----------------------------------------------------

Public Sub ContextMenu_TableWhole()

 Const MenuCaption As String = "セルの配置"

 On Error Resume Next

 Application.CommandBars("Whole Table").Controls(MenuCaption).Delete
 On Error GoTo 0
...続きを読む

Qマウスの右クリックコピーが突然、出来なくなったのは?

マウスの右クリックしてコピーが、どうやっても急にできなくなりました。(デスクトップ上の何もないところでの右クリックは出来ますが。)
ついさっきまでは出来てたのに、今、突然そうなり困っています。
アフリエイトタグ等がコピーできないのでどうにか解決する方法があったら教えてください。

Aベストアンサー

>ついさっきまでは出来てたのに、今、突然そうなり困っています。
「ついさっき」から「今」の間でパソコンの再起動などはお試しになりましたか?
またデスクトップでは右クリックは出来るとありますが、コピーも使えるということですか?
不具合は特定のソフト上でのみ発生するのでしょうか?
その辺分からないのでなんとも…^^;
とりあえず再起動してみよう。

「ctrl」キーを押しながら「C」キーを押すとコピーができます。
「ctrl」キーを押しながら「V」キーを押すと貼り付けができます。

QWordで、1ページを丸ごと削除するには?

1ページしか必要ないのに、真っ白な2ページ目がその下に表示されてしまった場合、この余分な2ページ目を一括削除(消去)する為に、何かいい方法があるでしょうか?

Aベストアンサー

<表示されてしまった場合>
これはそれなりに理由があるわけで、改ページや改行によって、次のページにまで入力が及んでいる時にそうなります。
特に罫線で表を作成し、ページの下一杯まで罫線を引いたときなどには、よくなる現象です。

さて、メニューの「表示」で段落記号にチェックが入っていないと、改行や改ページなどの入力情報が見えず、白紙のページを全て選択→削除してもそのままということが良くあります。
1 改行マークが白紙のページの先頭に入っていれば、それをBackSpaceで消してやる。
2 罫線を使っている場合は、それでも効果がない場合がありますが、その時は行数を増やしてやる。
などの方法があります。

Q表内、縦位置の中央揃えがど~~してもできない!!

 ワードでの文書作成をしています。表内の文字を縦横ともに中央に配置する場合、セルの配置で中央に設定しても、横位置は中央になるのですが、縦位置が下よりになったままです。それならばと、縦位置を上にしても画面上はそれでも下よりです。ワードで表を作った場合も、エクセルで作った表をコピーしても同じです。なんとか縦位置を中央に持っていきたいのですがどうしたら良いでしょうか。明日までに完璧に仕上げたいのです。わかる方、よろしくお願いいたします!!

Aベストアンサー

書式ー段落で、行間が1行になってない場合は1行にしてください。

それでもだめな場合は、Ctrl+Qを押して段落書式を解除し、
縦位置が中央揃えになるか確認してください。
(横位置の中央揃えもはずれますので、あとで設定してください)

それでもダメなら、セル内にカーソルがある状態で右クリックし、
表のプロパティ-セルタブ-オプションボタンをクリックし、
表全体を同じ設定にするがオンになってるか確認してください。

QWord 文字を打つと直後の文字が消えていく

いつもお世話になっています。
Word2000を使っているものです。
ある文書を修正しているのですが,文章中に字を打ち込むと後ろの字が消えてしまいます。
分かりにくいですが,
「これを修正します。」
という文章の「これを」と「修正します。」の間に「これから」という単語を入れたときに,その場所にカーソルを合わせて「これから」と打つと,
「これをこれからす。」
となってしまいます。
他の文書では平気です。
何か解決する方法があれば教えて下さい。

Aベストアンサー

入力モードが「挿入」(普通の入力)から、「上書き」になってしまっているのだと思われます。
キーボードに[Insert]というキーがあると思いますので、1度押してみてください。

QWordに新しいページを挿入する、いらないページを削除する方法は?

1、Wordに新しいページを挿入するにはどうすればいいのでしょうか。
2、いらないページを削除するにはどうすればいいのでしょうか。
初心者の質問で申し訳ありませんが宜しくお願い致します。

Aベストアンサー

たとえば1ページと2ページの間に新しいページを挿入する場合。
2ページの先頭でカーソルを点滅させて、キーボードのCtrlを押しながらEnterして下さい。
2ページ目が3ページに行って、2ページ目が新規に出来ます。

いらないページについては、そのページをすべて選択して、deleteして下さい。

Q有無、要否、賛否、是非、可否、当否…これらの言葉について

<A>
有無=あるかないか
要否=必要か否か
賛否=賛成と反対
是非=よいことと悪いこと
可否=よいことと悪いこと
当否=正しいか正しくないか。適切かどうか。


1.上記Aのような種類の言葉について、もっと知りたいので
他に何かあれば教えて下さい。

2.Aのような種類の言葉の事を何と呼ぶんでしょうか??

3.Aのような言葉を、どういう風に使えばいいのですか?
例文を示して頂けないでしょうか。

4.「是非」「可否」「当否」の意味は、全部同じですか?
違うとすれば、どのように違うのでしょうか?

Aベストアンサー

使用例

要否=要否を問う

賛否=賛否両論、賛否を問う
是非=是非(良し悪し)を論ずる。 副詞としての用法、是非参加ください。
可否= 可否(良し悪し)を論ずる。可否(賛否)を問う。
当否=ことの当否(よしあし、あたりはずれ)は別として、

是非と可否は同じ意味です。
当否も上の二つと同じ意味があるものの、それが当てはまっているかどうかという意味もあるので全く同じようには使えないでしょう。
二文字で相反する意味を表す漢語独特の表現法ですが、特に名前があるかどうかわかりません。類語として、否応(いやおう)があります。意味は断ることと承知すること。使用例、否応なしに買わされた(無理やりに買わされた)

Q「ご連絡いたします」は敬語として正しい?

連絡するのは、自分なのだから、「ご」を付けるのは
おかしいのではないか、と思うのですが。
「ご連絡いたします。」「ご報告します。」
ていうのは正しい敬語なのでしょうか?

Aベストアンサー

「お(ご)~する(いたす)」は、自分側の動作をへりくだる謙譲語です。
「ご連絡致します」も「ご報告致します」も、正しいです。

文法上は参考URLをご覧ください。

参考URL:http://www.nihongokyoshi.co.jp/manbou_data/a5524170.html


人気Q&Aランキング