Range.InsertAfter, méthode (Word)Range.InsertAfter Method (Word)

Insère le texte spécifié à la fin d'une plage.Inserts the specified text at the end of a range.

SyntaxeSyntax

expression.expression. InsertAfter( _Text_ )

expression Obligatoire.expression Required. Variable qui représente un objet «plage».A variable that represents a 'Range' object.

ParamètresParameters

NameName Requis/FacultatifRequired/Optional Type de donnéesData type DescriptionDescription
TextText ObligatoireRequired ChaîneString Texte à insérer.The text to be inserted.

RemarquesRemarks

Une fois cette méthode appliquée, la plage s'étend afin de contenir le nouveau texte.After this method is applied, the range expands to include the new text.

Vous pouvez insérer des caractères tels que des guillemets, des tabulations et des traits d’union insécables à l’aide de la fonction Visual Basic Chr avec la méthode InsertAfter .You can insert characters such as quotation marks, tab characters, and nonbreaking hyphens by using the Visual Basic Chr function with the InsertAfter method. Vous pouvez également utiliser les constantes Visual Basic suivantes : vbCr , vbLf , vbCrLf et vbTab .You can also use the following Visual Basic constants: vbCr , vbLf , vbCrLf and 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).If you use this method with a range that refers to an entire paragraph, the text is inserted after the ending paragraph mark (the text will appear at the beginning of the next paragraph). 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.To insert text at the end of a paragraph, determine the ending point and subtract 1 from this location (the paragraph mark is one character), as shown in the following example.

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.However, if the range ends with a paragraph mark that also happens to be the end of the document, Microsoft Word inserts the text before the final paragraph mark rather than creating a new paragraph at the end of the 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.Also, if the range is a bookmark, Word inserts the specified text but does not extend the range or the bookmark to include the new text.

ExempleExample

Cet exemple montre comment insérer du texte à la fin du document actif.This example inserts text at the end of the active document. La propriété Content renvoie un objet Range .The Content property returns a Range object.

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.This example inserts text from an input box as the second paragraph in the active document.

response = InputBox("Type some text") 
With ActiveDocument.Paragraphs(1).Range 
 .InsertAfter "1." & Chr(9) & response 
 .InsertParagraphAfter 
End With

Voir aussiSee also

Range, objetRange Object