TextRange.Expand, méthode (Publisher)

Développe la plage spécifiée ou la sélection. Cette propriété renvoie ou définit un type Long qui représente le nombre d'unités spécifié qui ont ajoutées à la plage ou la sélection.

Syntaxe

expression. Développer (Unité)

Expression Variable qui représente un objet TextRange .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Unit	Requis	PbTextUnit	Unité selon laquelle étendre la plage. Il peut s’agir de l’une des constantes PbTextUnit déclarées dans la bibliothèque de types Microsoft Publisher.

Valeur renvoyée

Entier long

Remarques

La méthode Expand déplace les deux points de terminaison d’une plage si nécessaire ; pour déplacer un seul point de terminaison d’une plage, utilisez la méthode MoveStart ou la méthode MoveEnd .

Exemple

Cet exemple crée une plage qui fait référence au premier mot de la première forme de la composition active. Ensuite, il choisit une police pour ce mot, puis il développe la plage pour référencer tout le premier paragraphe et il définit la police pour toute la ligne.

Sub ExpandRange() 
 Dim rngText As TextRange 
 
 Set rngText = ActiveDocument.Pages(1).Shapes(1) _ 
 .TextFrame.TextRange.Words(Start:=1, Length:=1) 
 With rngText 
 With .Font 
 .Size = 20 
 .Italic = msoTrue 
 End With 
 .Expand Unit:=pbTextUnitLine 
 .Font.Bold = msoTrue 
 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.