Word VBA教程:Valid属性

如果 CheckBox、DropDown 和 TextInput对象的该属性值为 True,则指定的窗体域对象为有效的复选框窗体域。Boolean 类型,只读。

如果 CustomLabel对象的该属性值为 True,则指定的自定义标签的各种属性(例如 Height、Width 和 NumberDown)共同构成有效的邮件标签。Boolean 类型,只读。

expression.Valid

expression   必需。该表达式返回“应用于”列表中的一个对象。

说明

对于 CheckBox、DropDown 和 TextInput对象,使用FormField对象的Type属性可在应用CheckBoxDropDownTextInput属性之前确定窗体域的类型(wdFieldFormCheckBox、wdFieldFormDropDown 或 wdFieldFormTextInput)。该步骤可确保 FormField对象为所需的类型。如果活动文档中第一个窗体域是一个复选框,则下列示例选中该复选框。


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

VBA示例

当应用于 CheckBox对象时。

本示例在插入点添加一个文字型窗体域。由于myFormField 是一个文字输入域而不是一个复选框,所以消息框显示“False”。


Selection.Collapse Direction:=wdCollapseStart
Set myFormField = ActiveDocument.FormFields.Add(Range:= _
    Selection.Range, Type:=wdFieldFormTextInput)
MsgBox myFormField.CheckBox.Valid

当应用于 TextInput对象时。

本示例确定活动文档中第一个窗体域是否为文字型窗体域。如果 Valid属性值为 True,则该文字型窗体域的内容更改为“Hello”。


If ActiveDocument.FormFields(1).TextInput.Valid = True Then
    ActiveDocument.FormFields(1).Result = "Hello"
End If

当应用于 CustomLabel对象时。

如果名为“My Labels”的自定义标签的设置有效,则本示例用 My Labels 的设置在新文档中创建标签。


addr = "James Allard" & vbCr & "123 Main St." & vbCr _
    & "Seattle, WA 98040"
If Application.MailingLabel.CustomLabels("My Labels") _
        .Valid = True Then
    Application.MailingLabel.CreateNewDocument _
        Name:="My Labels", Address:=addr
End If

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号