Classe AutoTextEntry - insertion automatique (Word VBA)

La classe AutoTextEntry représente une insertion automatique unique.

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

Dim ate as AutoTextEntry
Set ate = Dim strName As String: strName = 
Dim strStyleName As String: strStyleName = 
Selection.CreateAutoTextEntry(Name:=strName, StyleName:=strStyleName)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe AutoTextEntry : AutoTextEntries.Add, AutoTextEntries.AppendToSpike, AutoTextEntries.Item et Selection.CreateAutoTextEntry.

Delete

Supprime l'objet spécifié.

Selection.CreateAutoTextEntry.Delete

Index

Renvoie un type long qui représente la position d'un élément dans une collection.

Dim lngIndex As Long
lngIndex = Selection.CreateAutoTextEntry.Index

Insert

Insérer l'insertion automatique à la place de la plage spécifiée.

Si vous ne souhaitez pas remplacer la plage, utilisez la méthode Collapse avant d'utiliser cette méthode.

Insert (Where, RichText)

Sub InsertAutoTextEntry() 
 ActiveDocument.Content.Select 
 Selection.Collapse Direction:=wdCollapseEnd 
 ActiveDocument.AttachedTemplate.AutoTextEntries("one").Insert _ 
 Where:=Selection.Range, RichText:=True 
End Sub

Arguments

Un argument nommé

Where (Range) - Emplacement pour l'insertion automatique.

Optional arguments

Les arguments suivants sont facultatifs

RichText (String) - True pour insérer l'insertion automatique avec sa mise en forme d'origine.

Name

Cette propriété renvoie ou définit le nom de l’objet spécifié. Type de donnée Stringen lecture-écriture.

Selection.CreateAutoTextEntry.Name =

StyleName

Renvoie le nom du style appliqué à l'insertion automatique spécifiée.

Set myentry = NormalTemplate.AutoTextEntries.Add(Name:="rsvp", _ 
 Range:=Selection.Range) 
MsgBox myentry.StyleName

Value

Cette propriété renvoie ou définit la valeur de l'insertion automatique.

Définition de la propriété Value renvoie uniquement les 255 premiers caractères de la valeur de l'objet.

Selection.CreateAutoTextEntry.Value =