Classe TextInput (Word VBA)

La classe TextInput représente un champ de formulaire donné de type texte.

Set

Pour utiliser une variable de classe TextInput, elle doit d'abord être instanciée, par exemple

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

Les variables du type TextInput peuvent être définies à l'aide de la procédure FormField.TextInput

Clear

Supprime le texte du champ de formulaire de texte spécifié.

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

Default

Cette propriété renvoie ou définit le texte qui représente le contenu de zone de texte par défaut.

ActiveDocument.FormFields(1).TextInput.Default =

EditType

Définit les options du champ de formulaire de type texte spécifié.

Syntaxe : 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 argument nommé

Type (WdTextFormFieldType) - Type de zone de texte.

Valeurs possibles sont

wdCalculationText Champ de texte Calcul.
wdCurrentDateText Champ de texte Date du jour.
wdCurrentTimeText Champ de texte Heure actuelle.
wdDateText Champ de texte Date.
wdNumberText Champ de texte Nombre.
wdRegularText Champ de texte Normal.

Les arguments suivants sont facultatifs

Default - String

Format (String) - Chaîne de mise en forme utilisée pour la mise en forme du texte, du numéro ou de la date (par exemple, « 0,00 », « 1re lettre des mots en majuscule » ou « M/j/aa »).

Enabled (Boolean) - True : pour activer la saisie de texte dans le champ de formulaire.

Format

Renvoie le texte de la mise en forme pour la zone de texte spécifiée.

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

Renvoie un type de données Object qui représente l'objet parent de l'objet TextInput spécifié.

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

Type

Renvoie le type de champ texte.

Valeurs possibles sont wdCalculationText - Champ de texte Calcul, wdCurrentDateText - Champ de texte Date du jour, wdCurrentTimeText - Champ de texte Heure actuelle, wdDateText - Champ de texte Date, wdNumberText - Champ de texte Nombre, wdRegularText - Champ de texte Normal.
Dim wtfType As WdTextFormFieldType
wtfType = ActiveDocument.FormFields(1).TextInput.Type

Valid

True si l'objet de champ de formulaire spécifié est un champ de formulaire de case à cocher valide.

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

Width

Cette propriété renvoie ou définit la largeur, exprimée en points, du champ de saisie de texte spécifié.

ActiveDocument.FormFields(1).TextInput.Width =