Word) (TextInput 对象
代表一个文本型窗体域。
使用 FormFields (Index) (其中 Index 是与文本窗体字段或索引号关联的书签名称)返回 FormField 对象。 将 TextInput 属性与 FormField 对象一起使用可返回 TextInput 对象。 以下示例删除活动文档中名为“Text1”的文本型窗体域的内容。
ActiveDocument.FormFields("Text1").TextInput.Clear
索引号代表窗体域的 窗体域 中的位置 集合。 以下示例检查活动文档中第一个窗体域的类型。 如果该窗体域是文本型窗体域,则该示例将“Mission Critical”设置为该域的值。
If ActiveDocument.FormFields(1).Type = wdFieldFormTextInput Then
ActiveDocument.FormFields(1).Result = "Mission Critical"
End If
以下示例确定 ffield 变量在设置为默认的文本以前,是否在活动文档中代表一个有效的文本型窗体域。
Set ffield = ActiveDocument.FormFields(1).TextInput
If ffield.Valid = True Then
ffield.Default = "Type your name here"
Else
MsgBox "First field is not a text box"
End If
将 Add 方法与 FormFields 对象一起使用可添加文本窗体字段。 以下示例在活动文档的开始处添加文本型窗体域,然后将该窗体域的名称设置为“FirstName”。
Set ffield = ActiveDocument.FormFields.Add( _
Range:=ActiveDocument.Range(Start:=0, End:=0), _
Type:=wdFieldFormTextInput)
ffield.Name = "FirstName"
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。