Lire en anglais

Partager via


Objet TextInput (Word)

Représente un champ de formulaire donné de type texte.

Remarques

Utilisez FormFields (Index), où Index est le nom de signet associé au champ de formulaire texte ou le numéro d’index, pour renvoyer un objet FormField . Utilisez la propriété TextInput avec l’objet FormField pour renvoyer un objet TextInput . L'exemple suivant montre comment supprimer le contenu du champ de formulaire texte « Text1 » du document actif.

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

Le numéro d'index représente la position du champ de formulaire dans le FormFields collection. L'exemple suivant montre comment vérifier le type du premier champ de formulaire du document actif. Si celui-ci est un champ texte, l'exemple montre comment affecter « Mission critical » en tant que valeur de champ.

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

L'exemple suivant montre comment déterminer si la variable ffield représente un champ de formulaire texte valide dans le document actif avant de définir le texte par défaut.

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

Utilisez la méthode Add avec l’objet FormFields pour ajouter un champ de formulaire de texte. L’exemple suivant montre comment ajouter un champ de formulaire texte au début du document actif, puis affecter « FirstName » au nom du champ de formulaire.

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

Voir aussi

Référence du modèle objet Word

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.