Word VBA教程:DropDown对象

   
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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号