AutoTextEntries. AppendToSpike,, méthode (Word)AutoTextEntries.AppendToSpike method (Word)

Supprime la plage spécifiée et ajoute le contenu de la plage dans le Pique-notes (une insertion automatique prédéfinie).Deletes the specified range and adds the contents of the range to the Spike (a built-in AutoText entry). Cette méthode renvoie le Pique-notes sous la forme d’un objet AutoTextEntry .This method returns the Spike as an AutoTextEntry object.

SyntaxeSyntax

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

expression Obligatoire.expression Required. Variable qui représente une collection «AutoTextEntries».A variable that represents an 'AutoTextEntries' collection.

ParamètresParameters

NomName Requis/FacultatifRequired/Optional Type de donnéesData type DescriptionDescription
RangeRange ObligatoireRequired RangeRange Plage supprimée et ajoutée dans le Pique-notes.The range that's deleted and appended to the Spike.

Valeur renvoyéeReturn value

AutoTextEntryAutoTextEntry

RemarquesRemarks

La méthode AppendToSpike n'est uniquement valide pour la collection AutoTextEntries dans le modèle Normal.The AppendToSpike method is only valid for the AutoTextEntries collection in the Normal template.

ExempleExample

Cet exemple montre comment supprimer la sélection et ajouter son contenu dans le Pique-notes du modèle Normal.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

Cet exemple montre comment effacer le contenu du Pique-notes et ajouter les premier et troisième mots du document actif dans le Pique-notes du modèle Normal.This example clears the Spike and adds the first and third words in the active document to the Spike in the Normal template. Le contenu du Pique-notes est ensuite inséré au niveau du point d'insertion.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

Voir aussiSee also

AutoTextEntries, Collection d'objetsAutoTextEntries Collection Object

Assistance et commentairesSupport and feedback

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this documentation? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.