Объект TextInput (Word)
Представляет одно текстовое поле формы.
Используйте FormFields (Индекс), где Index — это имя закладки, связанное с полем текстовой формы, или номер индекса, чтобы вернуть объект FormField . Используйте свойство TextInput с объектом FormField , чтобы вернуть объект TextInput . В следующем примере удаляется содержимое поля текстовой формы с именем "Text1" в активном документе.
ActiveDocument.FormFields("Text1").TextInput.Clear
Номер индекса представляет позицию поля формы в коллекции FormFields . В следующем примере проверяется тип первого поля формы в активном документе. Если поле формы является полем текстовой формы, в примере в качестве значения поля задается значение "Критически важный".
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
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.