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