Word) (TextInput 物件
代表單一文字表單欄位。
使用 FormFields (Index) ,其中 Index 是與文字表單欄位或索引編號相關聯的書簽名稱,可傳回 FormField 物件。 使用 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"
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。