Word) (DropDown 对象
代表包含一个窗体选项列表的下拉型窗体域。
使用 FormFields (索引) ,其中 index 是索引号或与下拉窗体域关联的书签名称,以返回单个 FormField 对象。 使用 下拉列表下面 的示例将返回一个 下拉列表 对象的属性。 下面的示例在活动文档中名为"下拉列表"的下拉型窗体域中选定的第一个项目。
ActiveDocument.FormFields("DropDown1").DropDown.Value = 1
索引号代表窗体域的 窗体域 中的位置 集合。 下面的示例检查活动文档的第一个窗体域的类型。 如果是下拉型窗体域,则选中第二项。
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
使用 添加 要添加一个下拉型窗体域的 窗体域 集合的方法。 下面的示例在活动文档的开头添加一个下拉型窗体域,然后将项目添加到窗体字段。
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
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。