Clase AutoTextEntries (Word VBA)

Colección de objetos AutoCorrectEntry que representa los elementos de Autotexto en una plantilla. Para usar una variable de clase AutoTextEntries, primero debe ser instanciado, por ejemplo

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)