TextRange.InsertAfter, méthode (Publisher)

Renvoie un objet TextRange qui représente le texte ajouté à la fin d’une plage de texte.

Syntaxe

expression. InsertAfter (NewText)

Expression Variable qui représente un objet TextRange .

Parameters

Nom	Requis/Facultatif	Type de données	Description
NewText	Obligatoire	Chaîne	Texte à insérer.

Valeur renvoyée

TextRange

Exemple

Cet exemple ajoute le numéro de compilation de Microsoft Publisher à la fin de la première forme de la première page de la composition active. Cela suppose que la forme spécifiée est un cadre de texte et non un autre type de forme.

Sub AppendText() 
 With ActiveDocument.Pages(1).Shapes(1) 
 .TextFrame.TextRange.InsertAfter _ 
 NewText:="Microsoft Publisher Build : " & Build 
 End With 
End Sub

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.