Question

FormFields (FormField) CheckBox

代表一个复选框窗体域。

使用 CheckBox 对象

用 FormFields(index) 可返回单个 FormField 对象，其中index 是复选框的索引序号或书签名。用 FormField 对象的 CheckBox 属性可返回一个 CheckBox 对象。下列示例从活动文档中选定名为“Check1”复选框类型的窗体域。

ActiveDocument.FormFields("Check1").CheckBox.Value = True

索引序号代表一个窗体域在 FormFields 集合中的位置。下列示例判断第一个窗体域的类型：如果是复选框类型，则选中该复选框。

If ActiveDocument.FormFields(1).Type = wdFieldFormCheckBox Then
 ActiveDocument.FormFields(1).CheckBox.Value = True
End If

下列示例先判断 ffield 对象是否有效，然后再将复选框大小修改为 14 磅。

Set ffield = ActiveDocument.FormFields(1).CheckBox
If ffield.Valid = True Then 
 ffield.AutoSize = False
 ffield.Size = 14
Else
 MsgBox "First field is not a check box"
End If

用 FormFields 对象的 Add 方法可添加一个复选框型窗体域。下列示例在活动文档开始处添加一个复选框，取名为“Color”，并选中该复选框。

With ActiveDocument.FormFields.Add(Range:=ActiveDocument.Range _
 (Start:=0,End:=0), Type:=wdFieldFormCheckBox)
 .Name = "Color"
 .CheckBox.Value = True
End With