Range.InsertAfter, méthode (Word)
Insère le texte spécifié à la fin d'une plage.
Syntaxe
expression. InsertAfter
( _Text_
)
expression Obligatoire. Variable qui représente un objet Range.
Parameters
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
Text | Obligatoire | Chaîne | Texte à insérer. |
Remarques
Une fois cette méthode appliquée, la plage s'étend afin de contenir le nouveau texte.
Vous pouvez insérer des caractères tels que des guillemets, des tabulations et des traits d'union insécables en utilisant la fonction Visual Basic Chr avec la méthode InsertAfter. Vous pouvez également utiliser les constantes Visual Basic suivantes : vbCr, vbLf, vbCrLf et vbTab.
Si vous appliquez cette méthode à une plage qui fait référence à un paragraphe entier, le texte est inséré après la marque de fin de paragraphe (le texte s'affichera au début du paragraphe suivant). Pour insérer du texte à la fin d'un paragraphe, déterminez l'emplacement correspondant à la fin et retirez 1 à cet emplacement (la marque de paragraphe correspond à un caractère), comme indiqué dans l'exemple suivant.
Set doc = ActiveDocument
Set rngRange = _
doc.Range(doc.Paragraphs(1).Start, _
doc.Paragraphs(1).End - 1)
rngRange.InsertAfter _
" This is now the last sentence in paragraph one."
Cependant, si la plage se termine par une marque de paragraphe qui se trouve également être la fin du document, Microsoft Word insère le texte avant la marque de paragraphe finale au lieu de créer un nouveau paragraphe à la fin du document.
De même, si la plage est un signet, Word insère le texte indiqué mais n'étend pas la plage ou le signet afin d'inclure le nouveau texte.
Exemple
Cet exemple montre comment insérer du texte à la fin du document actif. La propriété Content renvoie un objet Range.
ActiveDocument.Content.InsertAfter "end of document"
Cet exemple montre comment insérer du texte extrait d'une zone d'entrée de sorte qu'il soit le deuxième paragraphe du document actif.
response = InputBox("Type some text")
With ActiveDocument.Paragraphs(1).Range
.InsertAfter "1." & Chr(9) & response
.InsertParagraphAfter
End With
Voir aussi
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.