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.
Sub AutoTxt()
NormalTemplate.AutoTextEntries.Add Name:="Sample Text", _
Range:=Selection.Range
End Sub
Arguments
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)