Objeto TextInput (Word)

Representa un solo campo de formulario de texto.

Comentarios

Use FormFields (Index), donde Index es el nombre del marcador asociado al campo de formulario de texto o al número de índice, para devolver un objeto FormField . Utilice la propiedad TextInput con el objeto FormField para devolver un objeto TextInput . En el siguiente ejemplo, se elimina el contenido del primer campo de formulario de texto denominado "Text1" del documento activo.

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

El número de índice representa la posición del campo de formulario en el FormFields colección. En el ejemplo siguiente se comprueba el tipo del primer campo de formulario del documento activo. Si el campo de formulario es un campo de formulario de texto, en el ejemplo se establece "Mission Critical" como valor del campo.

If ActiveDocument.FormFields(1).Type = wdFieldFormTextInput Then 
 ActiveDocument.FormFields(1).Result = "Mission Critical" 
End If

En el siguiente ejemplo, se determina si la variable ffield representa un campo de formulario de texto válido del documento activo antes de establecerse el texto predeterminado.

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

Use el método Add con el objeto FormFields para agregar un campo de formulario de texto. En el siguiente ejemplo, se agrega un campo de formulario de texto al principio del documento activo y, a continuación, se establece el valor del nombre del campo de formulario en "FirstName".

Set ffield = ActiveDocument.FormFields.Add( _ 
 Range:=ActiveDocument.Range(Start:=0, End:=0), _ 
 Type:=wdFieldFormTextInput) 
ffield.Name = "FirstName"

Vea también

Referencia de modelos de objetos de Word

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.