TextRange.MoveEnd, méthode (Publisher)

Déplace la position du caractère de fin d'une plage. Cette méthode renvoie une valeur de type Long qui représente le nombre d’unités que la plage ou la sélection a réellement déplacées, ou elle renvoie 0 (zéro) si le déplacement a échoué.

Syntaxe

expression. MoveEnd (Unité, Taille)

Expression Variable qui représente un objet TextRange .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Unit	Requis	PbTextUnit	Unité utilisée pour le déplacement de la plage ou de la sélection réduite. Il peut s’agir de l’une des constantes PbTextUnit déclarées dans la bibliothèque de types Microsoft Publisher.
Size	Obligatoire	Long	Nombre d'unités correspondant au déplacement. Si ce nombre est positif, le caractère de fin est déplacé vers l'avant dans le document. En revanche, s'il est négatif, le caractère de fin est déplacé vers l'arrière. Si l'emplacement de fin dépasse l'emplacement de début, la plage est réduite, et les deux emplacements sont déplacés ensemble.

Valeur renvoyée

Entier long

Exemple

Cet exemple définit une plage de texte, décale la position du caractère de début et du caractère de fin, puis définit la police pour cette plage.

Sub MoveStartEnd() 
 Dim rngText As TextRange 
 
 Set rngText = ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
 .TextRange.Paragraphs(Start:=3, Length:=1) 
 
 With rngText 
 .MoveStart Unit:=pbTextUnitLine, Size:=-2 
 .MoveEnd Unit:=pbTextUnitLine, Size:=1 
 With .Font 
 .Bold = msoTrue 
 .Size = 15 
 End With 
 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.