Word VBAで右クリックメニューをカスタマイズする方法

Wordを使っていると、頻繁に同じ操作を繰り返すことがありますよね。そんな時、右クリックメニューに自分だけの便利な機能を追加できたら、作業効率がぐんとアップします。今回は、VBAを使ってWordの右クリックメニューをカスタマイズする方法を、初心者にもわかりやすく解説します。

右クリックメニューをカスタマイズするメリット
VBAで右クリックメニューをカスタマイズする基本の流れ
右クリックメニューにサブメニューを追加する方法
右クリックメニューをカスタマイズする際の注意点
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

右クリックメニューをカスタマイズするメリット

Wordのイメージ

Wordの右クリックメニューは、文書内での操作を素早く行うための便利なツールです。頻繁に使う機能を右クリックメニューに追加することで、以下のようなメリットがあります。

ここがポイント！

作業効率の向上よく使う機能をすぐに呼び出せるため、作業がスムーズになります。
操作の簡略化メニューを何度も探す手間が省け、直感的に操作できます。
カスタマイズ性自分の作業スタイルに合わせて、メニューを自由に変更できます。

VBAで右クリックメニューをカスタマイズする基本の流れ

Wordの右クリックメニューをカスタマイズするには、VBA（Visual Basic for Applications）を使用します。以下の手順で進めていきます。

VBAエディターを開くWordを開き、
Alt + F11

キーを押してVBAエディターを起動します。
標準モジュールを挿入エディター内で「挿入」→「標準モジュール」を選択し、新しいモジュールを作成します。
コードを記述以下のサンプルコードをモジュールに貼り付けます。

Sub AddRightClickMenu()

    Dim contextMenu As CommandBar

    Dim newButton As CommandBarButton
    ' 右クリックメニューを取得

    Set contextMenu = Application.CommandBars("Text")
    ' 新しいボタンを追加

    Set newButton = contextMenu.Controls.Add(Type:=msoControlButton)

    newButton.Caption = "My Custom Macro"

    newButton.OnAction = "MyMacro"

End Sub

Sub MyMacro() MsgBox "カスタムマクロが実行されました！" End Sub

このコードでは、Wordの本文部分（”Text”）の右クリックメニューに「My Custom Macro」という新しい項目を追加し、それをクリックすると「MyMacro」マクロが実行されるように設定しています。

右クリックメニューにサブメニューを追加する方法

複数の関連する機能をまとめてサブメニューとして表示させることも可能です。以下のコードでは、「My Submenu」というサブメニューを作成し、その中に2つのマクロを追加しています。

Sub AddRightClickSubMenu()

    Dim contextMenu As CommandBar

    Dim subMenu As CommandBarPopup

    Dim button1 As CommandBarButton

    Dim button2 As CommandBarButton
    ' 右クリックメニューを取得

    Set contextMenu = Application.CommandBars("Text")
    ' サブメニューを追加

    Set subMenu = contextMenu.Controls.Add(Type:=msoControlPopup)

    subMenu.Caption = "My Submenu"
    ' サブメニュー内にボタンを追加

    Set button1 = subMenu.Controls.Add(Type:=msoControlButton)

    button1.Caption = "Macro 1"

    button1.OnAction = "Macro1"
    Set button2 = subMenu.Controls.Add(Type:=msoControlButton)

    button2.Caption = "Macro 2"

    button2.OnAction = "Macro2"

End Sub
Sub Macro1()

    MsgBox "マクロ1が実行されました！"

End Sub

Sub Macro2() MsgBox "マクロ2が実行されました！" End Sub

このように、サブメニューを活用することで、関連する機能をまとめて整理することができます。

右クリックメニューをカスタマイズする際の注意点

右クリックメニューをカスタマイズする際には、以下の点に注意しましょう。

メニューの重複同じ名前のメニューを複数回追加しないようにしましょう。重複を避けるために、追加前に既存のメニューを削除するコードを組み込むと良いです。
動作確認カスタマイズ後は、実際に右クリックメニューを表示させて、追加した項目が正しく動作するか確認しましょう。
保存VBAエディターでの変更は、Wordファイルと一緒に保存されますが、別のPCで使用する場合は、マクロを含むテンプレート（.dotm）として保存することをおすすめします。

よくある質問や疑問

Q1: VBAのコードをどこに書けば良いですか？

VBAエディターを開き、「挿入」→「標準モジュール」を選択して、新しいモジュールを作成します。その中にコードを貼り付けてください。

Q2: 右クリックメニューに追加した項目を削除するにはどうすれば良いですか？

以下のコードを使用して、追加した項目を削除できます。

Sub RemoveRightClickMenu()

    Dim contextMenu As CommandBar

    Dim control As CommandBarControl



' 右クリックメニューを取得

Set contextMenu = Application.CommandBars("Text")
' メニュー項目を検索して削除

For Each control In contextMenu.Controls

    If control.Caption = "My Custom Macro" Then

        control.Delete

    End If

Next control

End Sub