AutoTextEntries. AppendToSpike-Methode (Word)AutoTextEntries.AppendToSpike method (Word)

Löscht den angegebenen Bereich und nimmt den Inhalt des Bereichs in die Auflistung auf (einen integrierten AutoText-Eintrag).Deletes the specified range and adds the contents of the range to the Spike (a built-in AutoText entry). Diese Methode gibt die Spitze als AutoTextEntry -Objekt zurück.This method returns the Spike as an AutoTextEntry object.

SyntaxSyntax

Ausdruck.expression. AppendToSpike( _Range_ )AppendToSpike( _Range_ )

expression Erforderlich.expression Required. Eine Variable, die eine "AutoTextEntries"-Auflistung darstellt.A variable that represents an 'AutoTextEntries' collection.

ParameterParameters

NameName Erforderlich/OptionalRequired/Optional DatentypData type BeschreibungDescription
RangeRange ErforderlichRequired RangeRange Der Bereich, der gelöscht und an die Auflistung angehängt wird.The range that's deleted and appended to the Spike.

RückgabewertReturn value

AutoTextEntryAutoTextEntry

BemerkungenRemarks

Die AppendToSpike -Methode ist nur für die AutoTextEntries -Auflistung in der Vorlage Normal gültig.The AppendToSpike method is only valid for the AutoTextEntries collection in the Normal template.

BeispielExample

In diesem Beispiel wird die Markierung gelöscht und der Inhalt der Auflistung in der Dokumentvorlage Normal angehängt.This example deletes the selection and adds its contents to the Spike in the Normal template.

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

In diesem Beispiel wird die Auflistung gelöscht und das erste und dritte Wort im aktiven Dokument zur Auflistung in der Dokumentvorlage Normal hinzugefügt.This example clears the Spike and adds the first and third words in the active document to the Spike in the Normal template. Anschließend wird der Inhalt der Auflistung an der Einfügemarke eingefügt.The contents of the Spike are then inserted at the insertion point.

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

Siehe auchSee also

AutoTextEntries-AuflistungsobjektAutoTextEntries Collection Object

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.