Partager via

Objet AutoTextEntries (Word)

  • Article

Collection d'objets AutoCorrectEntry qui représentent les insertions automatiques dans un modèle. La collection AutoTextEntries contient l'ensemble des insertions répertoriées sous l'onglet Insertion automatique dans la boîte de dialogue correction automatique.

Remarques

Utilisez la propriété AutoTextEntries pour renvoyer la collection AutoTextEntries. L'exemple suivant détermine si un objet AutoTextEntry nommé « test » dans la collection AutoTextEntries.

For Each i In NormalTemplate.AutoTextEntries 
 If LCase(i.Name) = "test" Then MsgBox "AutoText entry exists" 
Next i

Utilisez la méthode Add pour ajouter une insertion automatique dans 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

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

Méthodes

Propriétés

Voir aussi

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.