Clase TextInput (Word VBA)

La clase TextInput representa un solo campo de formulario de texto.

Set

Para usar una variable de clase TextInput, primero debe ser instanciado, por ejemplo

Dim tit as TextInput
Set tit = ActiveDocument.FormFields(1).TextInput

Las variables de tipo TextInput se pueden establecer utilizando el procedimiento FormField.TextInput

Clear

Elimina el texto del campo de formulario de texto especificado.

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True 
If ActiveDocument.FormFields(1).Type = wdFieldFormTextInput Then 
 ActiveDocument.FormFields(1).TextInput.Clear 
End If

Default

Devuelve o establece el texto que representa el contenido del cuadro de texto predeterminado.

ActiveDocument.FormFields(1).TextInput.Default =

EditType

Establece las opciones del campo con texto especificado.

Sintaxis : expression.EditType (Type, Default, Format, Enabled)

With ActiveDocument.FormFields.Add _ 
 (Range:=ActiveDocument.Range(0, 0), _ 
 Type:=wdFieldFormTextInput) 
 .Name = "Today" 
 .TextInput.EditType Type:=wdCurrentDateText, _ 
 Format:="M/d/yy", Enabled:=False 
End With

Arguments

Un argumento con nombre

Type (WdTextFormFieldType) - Tipo de cuadro de texto.

Valores posibles son

wdCalculationText Campo de texto de cálculo.
wdCurrentDateText Campo de texto de fecha actual.
wdCurrentTimeText Campo de texto de hora actual.
wdDateText Campo de texto de fecha.
wdNumberText Campo de texto de número.
wdRegularText Campo de texto normal.

Los siguientes argumentos son opcionales

Default (String) - Texto predeterminado que aparece en el cuadro de texto.

Format (String) - Cadena de formato utilizada para dar formato al texto, número o fecha; por ejemplo, "0,00", "Tipo Título" o "M/d/aa".

Enabled (Boolean) - True para habilitar el campo de formulario para la inclusión de texto.

Format

Devuelve el formato de texto para el cuadro de texto especificado.

If ActiveDocument.FormFields(1).Type = wdFieldFormTextInput Then 
 MsgBox ActiveDocument.FormFields(1).TextInput.Format 
Else 
 MsgBox "First field is not a text form field" 
End If

Parent

Devuelve un objeto Object que representa el objeto primario del objeto TextInput especificado.

Dim objParent As Object
Set objParent = ActiveDocument.FormFields(1).TextInput.Parent

Type

Devuelve el tipo de campo de formulario de texto.

Valores posibles son wdCalculationText - Campo de texto de cálculo, wdCurrentDateText - Campo de texto de fecha actual, wdCurrentTimeText - Campo de texto de hora actual, wdDateText - Campo de texto de fecha, wdNumberText - Campo de texto de número, wdRegularText - Campo de texto normal.
Dim wtfType As WdTextFormFieldType
wtfType = ActiveDocument.FormFields(1).TextInput.Type

Valid

True si el objeto de campo de formulario especificado es un campo de formulario de casilla de verificación válido.

If ActiveDocument.FormFields(1).TextInput.Valid = True Then 
 ActiveDocument.FormFields(1).Result = "Hello" 
End If

Width

Devuelve o establece el ancho, en puntos, del campo de entrada de texto especificado.

ActiveDocument.FormFields(1).TextInput.Width =