用于表单字段的MS Word VBA

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不会更改（它读取＆＃34; 2＆＃34;），即使我将下拉列表从Yes更改为No，反之亦然。我还尝试在VBA代码中添加引号（＆＃34;是＆＃34;）并出现类型不匹配错误。

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