Microsoft Wordでドロップダウンメニューの値を取得する方法

Question

私はそこにドロップダウンメニューを持つMicrosft Word文書を持っています。私はドロップダウンの値を取得し、計算を実行するマクロを記述しようとしています。ドロップダウンの値を取得するにはどうすればよいですか？

Answer 1

最初に、ドロップダウンへの参照は、指定した名前（[プロパティ]ボックスの[ブックマーク]フィールド）か、追加したフィールドのシーケンス内の番号によって取得できます。

次に、Resultプロパティを使用して、現在選択されている値を表示します。

私は（カーソル位置にそのコントロールを挿入するにはボタンをクリックし、[フォーム]ツールバーを表示する）、その上に2つのドロップダウンリストで、空白の文書を作成しました：

ColorDropdown 
    red 
    green 
    blue 

SizeDropdown 
    small 
    medium 
    large 

、私はいくつかのテストルーチンを書きました：

ColorDropdown = blue 
SizeDropdown = large 

color = blue 

：

Sub ListDropDowns() 
    Dim doc As Document, f As FormField 
    Set doc = ActiveDocument 

    For Each f In doc.FormFields 
    Say f.Name & " = " & f.Result 
    Next 
End Sub 

Sub ShowChosenColor() 
    Dim f As FormField 
    Set f = ActiveDocument.FormFields("ColorDropdown") 
    Say "color = " & f.Result 
End Sub 

Sub Say(s As String) 
    Debug.Print s 
End Sub 

これらは、イミディエイトウィンドウからListDropDownsとShowChosenColorの結果であります

もう少しイミディエイトウィンドウテスト：

set doc = ActiveDocument 

? doc.FormFields(1).Name 
ColorDropdown 

? doc.FormFields(2).Name 
SizeDropdown 

? doc.FormFields(2).Result 
large 


sName = doc.FormFields(2).Name 
? sName 
SizeDropdown 

sSize = doc.FormFields(sName).Result 
? sSize 
large