Méthode AutoTextEntries.AppendToSpike (Word)

Supprime la plage spécifiée et ajoute le contenu de la plage dans le Pique-notes (une insertion automatique prédéfinie). Cette méthode renvoie le Pique-notes sous la forme d'un objet AutoTextEntry.

Syntaxe

expression. AppendToSpike( _Range_ )

expression Obligatoire. Variable qui représente une collection « AutoTextEntries ».

Paramètres

Nom Requis/Facultatif Type de données Description
Range Obligatoire Range Plage supprimée et ajoutée dans le Pique-notes.

Valeur renvoyée

AutoTextEntry

Remarques

La méthode AppendToSpike n'est uniquement valide pour la collection AutoTextEntries dans le modèle Normal.

Exemple

Cet exemple montre comment supprimer la sélection et ajouter son contenu dans le Pique-notes du modèle Normal.

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. Le contenu du Pique-notes est ensuite inséré au niveau du point d'insertion.

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 aussi

AutoTextEntries, Collection d'objets

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette 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.