Question

Documents (Document) FormFields (FormField) DropDown ListEntries (ListEntry)

代表包含一个窗体选项列表的下拉型窗体域。

使用 DropDown 对象

用 FormFields(index) 可返回单个 FormField 对象，其中index 是索引序号或该下拉型窗体域的书签名。用 FormField 对象的 DropDown 属性可返回 DropDown 对象。下列示例选定活动文档中名为“DropDown”的下拉型窗体域内的第一项。

ActiveDocument.FormFields("DropDown1").DropDown.Value = 1

索引序号代表 FormFields 集合中窗体域的位置。下列示例用于检查活动文档中第一个窗体域的类型。如果它是下拉型窗体域，则选中第二项。

If ActiveDocument.FormFields(1).Type = wdFieldFormDropDown Then
 ActiveDocument.FormFields(1).DropDown.Value = 2
End If

下列示例在向ffield 窗体域中添加选项以前，判断该下拉型窗体域是否有效。

Set ffield = ActiveDocument.FormFields(1).DropDown
If ffield.Valid = True Then 
 ffield.ListEntries.Add Name:="Hello"
Else
 MsgBox "First field is not a drop down"
End If

用 FormFields 集合的 Add 方法可添加一个下拉型窗体域。下列示例在活动文档开始处添加一个下拉型窗体域，然后为该窗体域添加选项。

Set ffield = ActiveDocument.FormFields.Add( _
 Range:=ActiveDocument.Range(Start:=0, End:=0), _
 Type:=wdFieldFormDropDown)
With ffield
 .Name = "Colors"
 With .DropDown.ListEntries
 .Add Name:="Blue"
 .Add Name:="Green"
 .Add Name:="Red"
 End With
End With