Objeto AutoTextEntries (Word)
Colección de objetos AutoCorrectEntry que representa los elementos de Autotexto en una plantilla. La colección AutoTextEntries incluye todas las entradas que aparecen en la ficha Autotexto en el cuadro de diálogo Autocorrección.
Comentarios
Utilice la propiedad AutoTextEntries para devolver la colección AutoTextEntries. El ejemplo siguiente se determina si un objeto AutoTextEntry denominado "prueba" está en la colección AutoTextEntries.
For Each i In NormalTemplate.AutoTextEntries
If LCase(i.Name) = "test" Then MsgBox "AutoText entry exists"
Next i
Utilice el método Add para agregar un elemento de Autotexto a la colección AutoTextEntries. En el siguiente ejemplo se agrega un elemento de Autotexto denominado "Blue" basado en el texto de la selección.
NormalTemplate.AutoTextEntries.Add Name:="Blue", _
Range:=Selection.Range
Use AutoTextEntries (index), donde index es el nombre de entrada de Autotexto o el número de índice, para devolver un único objeto AutoTextEntry . Deben coincidir exactamente con la ortografía (pero no necesariamente las mayúsculas y minúsculas) del nombre, como se muestra en la ficha Autotexto en el cuadro de diálogo Autocorrección. El ejemplo siguiente establece el valor de un elemento de Autotexto existente denominado "cName".
NormalTemplate.AutoTextEntries("cName").Value = _
"The Johnson Company"
En el ejemplo siguiente se muestra el nombre y el valor del primer elemento de Autotexto de la plantilla adjunta al documento activo.
Set myTemplate = ActiveDocument.AttachedTemplate
MsgBox "Name = " & myTemplate.AutoTextEntries(1).Name & vbCr _
& "Value " & myTemplate.AutoTextEntries(1).Value
Métodos
Propiedades
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.