Clase AutoTextEntry - elemento de Autotexto (Word VBA)

La clase AutoTextEntry representa un único elemento de Autotexto.

Para usar una variable de clase AutoTextEntry, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase AutoTextEntry : AutoTextEntries.Add, AutoTextEntries.AppendToSpike, AutoTextEntries.Item y Selection.CreateAutoTextEntry.

Delete

Elimina el objeto especificado.

Selection.CreateAutoTextEntry.Delete

Index

Devuelve un valor de tipo Long que representa la posición de un elemento en una colección.

Dim lngIndex As Long
lngIndex = Selection.CreateAutoTextEntry.Index

Insert

Inserta el elemento de Autotexto en lugar del intervalo especificado.

Si no desea reemplazar el intervalo, utilice el método Collapse antes de utilizar este método.

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 argumento con nombre

Where (Range) - Ubicación del elemento de Autotexto.

Optional arguments

Los siguientes argumentos son opcionales

RichText (String) - True para insertar el elemento de Autotexto con su formato original.

Name

Devuelve o establece el nombre del objeto especificado. Stringde lectura y escritura.

Selection.CreateAutoTextEntry.Name =

StyleName

Devuelve el nombre del estilo aplicado a la entrada de Autotexto especificada.

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

Value

Devuelve o establece el valor del elemento de Autotexto.

Establecer la propiedad Value, sólo devuelve los primeros 255 caracteres del valor del objeto.

Selection.CreateAutoTextEntry.Value =