Classe AutoTextEntries (Word VBA)

Collection d’objets AutoCorrectEntry qui représentent les insertions automatiques contenues dans un modèle. Pour utiliser une variable de classe AutoTextEntries, elle doit d'abord être instanciée, par exemple

Add

Renvoie un objet AutoTextEntry qui représente une insertion automatique ajoutée à la liste des insertions automatiques disponibles.

Add (Name, Range)

Sub AutoTxt() 
 NormalTemplate.AutoTextEntries.Add Name:="Sample Text", _ 
 Range:=Selection.Range 
End Sub

Arguments

Les arguments nommés :

Name (String) - Texte dont la saisie provoque une entrée Texte Auto.

Range (Range) - Plage de texte insérée lorsque l'utilisateur tape le nom indiqué par l'argument Nom.

AppendToSpike

Supprime la plage spécifiée et ajoute le contenu de la plage dans le Pique-notes (une insertion automatique prédéfinie).

La méthode AppendToSpike n'est uniquement valide pour la collection AutoTextEntries dans le modèle Normal.

AppendToSpike (Range)

Range: Plage supprimée et ajoutée dans le Pique-notes.

If Len(Selection.Range.Text) > 1 Then 
 NormalTemplate.AutoTextEntries.AppendToSpike _ 
 Range:=Selection.Range 
End If

Count

Renvoie le nombre d'éléments dans la collection AutoTextEntries.

Dim ates As AutoTextEntries: Set ates =  
Dim lngCount As Long
lngCount = ates.Count

Item

Renvoie un objet AutoTextEntry spécifique appartenant à une collection.

Item (Index)

Index: Objet spécifique qui doit être renvoyé.

Dim ates As AutoTextEntries: Set ates =  
Dim ate As AutoTextEntry
Set ate = ates(Index:=1)