Objet AutoTextEntry (Word)
Représente une insertion automatique unique. L'objet AutoTextEntry est membre de la collection AutoTextEntries. La collection AutoTextEntries contient l'ensemble des insertions automatiques contenues dans le modèle spécifié. Les entrées sont répertoriées sous l'onglet Insertion automatique dans la boîte de dialogue correction automatique.
Utilisez AutoTextEntries (index), où index est le nom ou le numéro d’index de l’entrée d’insertion automatique, pour renvoyer un seul objet AutoTextEntry . Vous devez correspondre exactement l'orthographe (mais pas nécessairement la casse) du nom, tel qu'il est affiché sous l'onglet Insertion automatique dans la boîte de dialogue correction automatique. L'exemple suivant définit la valeur d'une entrée d'insertion automatique existante nommée « cName ».
NormalTemplate.AutoTextEntries("cName").Value = _
"The Johnson Company"
L'exemple suivant montre comment afficher le nom et la valeur de l'insertion automatique qui figure en première position dans le modèle associé au document actif.
Set myTemplate = ActiveDocument.AttachedTemplate
MsgBox "Name = " & myTemplate.AutoTextEntries(1).Name & vbCr _
& "Value " & myTemplate.AutoTextEntries(1).Value
L'exemple suivant montre comment placer au niveau du point d'insertion l'insertion automatique globale nommée « TheWorld ».
Selection.Collapse Direction:=wdCollapseEnd
NormalTemplate.AutoTextEntries("TheWorld").Insert _
Where:=Selection.Range
Utilisez la méthode Add pour ajouter un objet AutoTextEntry à la collection AutoTextEntries. L'exemple suivant ajoute une insertion automatique nommée « Blue » en fonction du texte de la sélection.
NormalTemplate.AutoTextEntries.Add Name:="Blue", _
Range:=Selection.Range
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.