如何獲取Microsoft Word中的下拉菜單的值

Question

我有一個帶有下拉菜單的Microsft Word文檔。我正在嘗試編寫一個獲取下拉列表值並執行計算的宏。我如何獲得下拉菜單的價值？

Answer 1

首先，您可以通過您輸入的名稱（「屬性」框中的「書籤」字段）或其添加的字段序列中的號碼來獲取對下拉列表的引用。

然後使用Result屬性顯示當前選定的值。

我創建一個空白文檔有兩個下拉列表上（顯示窗體工具欄，然後點擊一個按鈕插入光標所在位置對照）：

ColorDropdown 
    red 
    green 
    blue 

SizeDropdown 
    small 
    medium 
    large 

然後我寫了幾個測試程序：

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的從即時窗口結果：

ColorDropdown = blue 
SizeDropdown = large 

color = blue 

更多立即窗口測試：

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