Clase AutoTextEntries (Word VBA)

Colección de objetos AutoCorrectEntry que representa los elementos de Autotexto en una plantilla.

Add

Devuelve un objeto AutoTextEntry que representa un elemento de Autotexto agregado a la lista de elementos de Autotexto disponibles.

Add (Name, Range)

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

Arguments

Estos son los argumentos con nombre :

Name (String) - Texto que, cuando se escribe, inicia un elemento de Autotexto.

Range (Range) - Intervalo de texto que se insertará cada vez que se escriba Name.

AppendToSpike

Elimina el intervalo especificado y agrega el contenido del intervalo al elemento especial (integrado de Autotexto).

El método AppendToSpike sólo es válido para la colección AutoTextEntries de la plantilla Normal.

AppendToSpike (Range)

Range: Intervalo que se elimina y anexa al elemento Especial.

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

Count

Devuelve el número de elementos de la colección AutoTextEntries.

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

Item

Devuelve un objeto AutoTextEntry individual de una colección.

Item (Index)

Index: El objeto individual que se va a devolver.

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