Método AutoTextEntries.AppendToSpike (Word)

Elimina el intervalo especificado y agrega el contenido del intervalo al elemento especial (integrado de Autotexto). Este método devuelve el valor de especial como un objeto AutoTextEntry.

Sintaxis

expresión. AppendToSpike( _Range_ )

expresión requerida. Variable que representa una colección "AutoTextEntries".

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Range	Obligatorio	Range	Intervalo que se elimina y anexa al elemento Especial.

Valor devuelto

AutoTextEntry

Comentarios

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

Ejemplo:

En este ejemplo, se elimina la selección y se agrega su contenido al elemento Especial en la plantilla Normal.

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

En este ejemplo, se borra el elemento Especial y se agrega la primera y la tercera palabras del documento activo al elemento Especial de la plantilla Normal. A continuación, se inserta el contenido de dicho elemento en el punto de inserción.

Dim atEntry As AutoTextEntry 
Selection.Collapse Direction:=wdCollapseStart 
For Each atEntry In NormalTemplate.AutoTextEntries 
 If atEntry.Name = "Spike" Then atEntry.Delete 
Next atEntry 
With NormalTemplate.AutoTextEntries 
 .AppendToSpike Range:=ActiveDocument.Words(3) 
 .AppendToSpike Range:=ActiveDocument.Words(1) 
 .Item("Spike").Insert Where:=Selection.Range 
End With

Consulte también

Objeto de la colección AutoTextEntries

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.