MS Word VBA for formfields

Question

我試圖在VBA中為下拉表單字段分配一個數值。 我有Msgbox只是為了測試功能：

Sub ScreenB()
    Dim a As Double
    If ActiveDocument.FormFields("Dropdown9").DropDown.Value = No Then
        a = 1
    Else
        a = 2
    End If
    MsgBox a       
End Sub

使用此代碼，即使我將下拉列表從“是”更改為“否”，我的Msgbox也不會更改（讀取為“ 2”），反之亦然。 我還嘗試在VBA代碼中用雙引號將“是”（“是”）括起來，並收到類型不匹配錯誤。

Answer 1

您應該使用FormFields.Result

Sub ScreenB()
    Dim a As Double
    If ActiveDocument.FormFields("Dropdown9").Result = "No" Then
        a = 1
    Else
        a = 2
    End If
    MsgBox a       
End Sub