Clase TextInput (Word VBA)

La clase TextInput representa un solo campo de formulario de texto. Para usar una variable de clase TextInput, primero debe ser instanciado, por ejemplo

Dim tit as TextInput
Set tit = ActiveDocument.FormFields(1).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.

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

Optional arguments

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

Type

Devuelve el tipo de campo de formulario de texto. Posibles valores de retorno 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 =