Word 文書に動的リストを作成するには？

著者Siluvia変更日2025-04-11

最初のドロップダウンリストで選択したオプションに基づいて、2番目のドロップダウンリストの選択肢を制限する例

スクリーンショットに示すように、最初のドロップダウンリストで選択した内容に応じて、2 番目のドロップダウンリストの選択肢を絞り込みたい場合があります。本記事では、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」をクリックしてください。