Word VBA教程:TextInput对象

   
FormFields (FormField)
TextInput

该对象代表一个文本窗体域。

使用 TextInput对象

可用 FormFields(index) 返回一个 FormFields对象,其中 index 为该文本窗体域的书签名或索引号。可用TextInput属性及 FormField对象返回一个 TextInput对象。下例删除活动文档中“Text1”文本窗体域中的内容。


ActiveDocument.FormFields("Text1").TextInput.Clear

索引号表示该窗体域在FormFields集合中的位置。下例检查活动文档中第一个窗体域的类型。如果该窗体域为文本窗体域,本示例将该域值设为“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"

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号