Word文書で依存するドロップダウンリストを作成するにはどうすればよいですか？

Author: Siluvia Last Modified: 2025-08-26

Example showing limiting the choices in the second drop-down list based on the selected option in the first drop-down list

スクリーンショットに示されているように、最初のドロップダウンリストで選択された内容に基づいて、2番目のドロップダウンリストの選択肢を制限したい場合があります。この記事では、Word文書で依存するドロップダウンリストを作成する方法を紹介します。

VBAコードを使用してWordで依存するドロップダウンリストを作成する

以下のVBAメソッドは、最初のリストで選択された内容に基づいて2番目のリストが変更されるような依存するドロップダウンリストを作成するのに役立ちます。次の手順に従ってください：

Wordリボンに「開発」タブが表示されていることを確認してください（表示されていない場合は、「Wordで開発タブを表示する方法」のチュートリアルを参照してください）。次に、「開発」＞「レガシーフォーム」＞「ドロップダウンフォームフィールド」を2回クリックして、2つのドロップダウンリストを挿入します。
最初のドロップダウンリスト（これが親リストになります）を右クリックし、「プロパティ」を選択します。
「ドロップダウンフォームフィールドオプション」ダイアログで：
1. カテゴリ（例：「果物」、「野菜」、「肉」）を1つずつ「ドロップダウン項目」ボックスに入力し、各項目ごとに「追加」をクリックします。
2. 「ブックマーク」ボックスに「ddfood」と入力します。
3. 「OK」をクリックします。
2番目のドロップダウンリストを右クリックし、「プロパティ」を選択し、「ブックマーク」ボックスに「ddCategory」と入力して「OK」をクリックします。
Alt + F11を押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

VBAウィンドウで、「挿入」＞「モジュール」をクリックし、次のコードを貼り付けます：

Sub Populateddfood()
'Update by Extendoffice 2018/10/25
    Dim xDirection As FormField
    Dim xState As FormField
    On Error Resume Next
    Set xDirection = ActiveDocument.FormFields("ddfood")
    Set xState = ActiveDocument.FormFields("ddCategory")
    If ((xDirection Is Nothing) Or (xState Is Nothing)) Then Exit Sub
    With xState.DropDown.ListEntries
        .Clear
        Select Case xDirection.Result
            Case "Fruit"
                .Add "Apple"
                .Add "Banana"
                .Add "Peach"
                .Add "Lychee"
                .Add "Watermelon"
            Case "Vegetable"
                .Add "Cabbage"
                .Add "Onion"
            Case "Meat"
                .Add "Pork"
                .Add "Beef"
                .Add "Mutton"
        End Select
    End With
End Sub

注意：

コード内の各「Case」ステートメントの下にある項目を、自分のコンテンツに合わせて変更してください。
「ddfood」と「ddCategory」は、「ドロップダウンフォームフィールドオプション」ダイアログボックスに入力したブックマーク名と一致している必要があります。

コードを保存し、文書に戻ります。
最初のドロップダウンリストを再度右クリックし、「プロパティ」を選択します。「ドロップダウンフォームフィールドオプション」ダイアログボックスで、「終了」ドロップダウンリストからマクロ名「Populateddfood」を選択し、「OK」をクリックします。
「開発」＞「編集制限」をクリックします。
「編集制限」ペインで：
1. 「文書内でこの種類の編集のみを許可する」をチェックします。
2. ドロップダウンリストから「フォームへの入力」を選択します。
3. 「はい、保護の適用を開始」をクリックします。
4. 「保護の適用を開始」ダイアログで、パスワードを設定し、「OK」をクリックします。