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.