Méthode TextRange.Collapse (Publisher)

Article
04/07/2023

Réduit une plage ou une sélection vers la position de départ ou de fin. Une fois celles-ci réduites, les points de départ et de fin se situent au même niveau.

Syntaxe

expression. Collapse (Direction)

Expression Variable qui représente un objet TextRange .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Direction	Obligatoire	PbCollapseDirection	Sens dans lequel s'effectue la réduction de la plage ou de la sélection. Il peut s’agir de l’une des constantes PbCollapseDirection déclarées dans la bibliothèque de type Microsoft Publisher.

Remarques

Si vous utilisez pbCollapseEnd pour réduire une plage qui fait référence à un paragraphe entier, la plage sera située après la fin marque de paragraphe (le début du paragraphe suivant). Toutefois, vous pouvez déplacer la plage d’un caractère à l’aide de la méthode MoveEnd après la réduction de la plage.

Exemple

Cet exemple insère un texte au début du deuxième paragraphe dans 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 CollapseRange() 
 Dim rngText As TextRange 
 Set rngText = ActiveDocument.Pages(1).Shapes(1) _ 
 .TextFrame.TextRange 
 
 'Collapses range to the end of the range and 
 'enters new text and a new paragraph 
 With rngText 
 .Paragraphs(Start:=1, Length:=1).Collapse Direction:=pbCollapseEnd 
 .Text = "This is a new paragraph." & vbCrLf 
 End With 
End Sub

Cet exemple place le nouveau texte à la fin du premier paragraphe dans 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 CollapseSelection() 
 ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange _ 
 .Paragraphs(Start:=1, Length:=1).Select 
 
 'Collapses selection to end and moves cursor back 
 'one character, then enters new text 
 With Selection.TextRange 
 .Collapse Direction:=pbCollapseEnd 
 .MoveEnd Unit:=pbTextUnitCharacter, Size:=-1 
 .Text = " This is a new test." 
 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.

Partager via