TextRange.Move, méthode (Publisher)

Réduit la plage spécifiée à sa position de début ou de fin, puis déplace l’objet réduit selon le nombre d’unités spécifié. Cette méthode renvoie un type Long qui représente le nombre d'unités selon lequel l'objet a été déplacé réellement, ou elle renvoie 0 (zéro) si le déplacement a échoué.

Syntaxe

expression. Déplacer (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	Entier long	Le nombre d'unités selon lequel la plage spécifiée ou la sélection doit être déplacée. Si Size est un nombre positif, l'objet est réduit à sa position de fin et déplacée vers l'avant dans le document, selon le nombre d'unités spécifié. Si Size est un nombre négatif, l'objet est réduit à sa position de début et déplacé du nombre d'unités spécifié vers l'arrière. Vous pouvez également contrôler la direction de la réduction à l’aide de la méthode Collapse avant d’utiliser la méthode Move .

Valeur renvoyée

Entier long

Exemple

Cet exemple réduit la plage spécifiée et insère une nouvelle phrase au début de la plage.

Sub MoveText() 
 Dim rngText As TextRange 
 Set rngText = ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
 .TextRange.Words(Start:=1, Length:=5) 
 With rngText 
 .Move Unit:=pbTextUnitParagraph, Size:=-1 
 .Text = "This adds new text to the beginning of the range. " 
 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.