Range.EndOf, méthode (Word)

Article
04/07/2023

Déplace ou étend l'emplacement du caractère de fin d'une plage vers la fin de l'unité de texte spécifiée la plus proche.

Syntaxe

expression. EndOf( _Unit_ , _Extend_ )

expression Obligatoire. Variable qui représente un objet Range.

Parameters

Nom	Requis/Facultatif	Type de données	Description
Unit	Facultatif	Variant	Unité en fonction de laquelle déplacer la position du caractère de fin. Peut être n'importe quel WdUnits, à l'exception de wdLine. La valeur par défaut est wdWord.
Extend	Obligatoire	WdMovementType	Spécifie s'il faut déplacer ou étendre la fin de la plage. Si la valeur est wdMove, les deux extrémités de l'objet range ou selection sont déplacées vers la fin de l'unité spécifiée. Si wdExtend est utilisée, la fin de la plage ou la sélection est étendue jusqu'à la fin de l'unité spécifiée. La valeur par défaut est wdMove.

Remarques

Déplace ou étend l'emplacement du caractère de fin d'une plage ou d'une sélection vers la fin de l'unité de texte spécifiée la plus proche. Cette méthode renvoie une valeur qui correspond au nombre d'emplacements correspondant à la distance de déplacement ou d'extension de la plage ou de la sélection (le déplacement au sein d'un document est effectué vers l'avant).

Si l'emplacement de fin et de début de la plage ou de la sélection correspond déjà à la fin de l'unité spécifiée, cette méthode ne déplace ni n'étend la plage ou la sélection. Par exemple, si la sélection se trouve à la fin d’un mot et de l’espace de fin, l’instruction suivante ne modifie pas la sélection ( char est égal à 0 (zéro)).

char = Selection.EndOf(Unit:=wdWord, Extend:=wdMove)

Exemple

Cet exemple montre comment étendre la sélection vers la fin du paragraphe.

charmoved = Selection.EndOf(Unit:=wdParagraph, Extend:=wdExtend) 
If charmoved = 0 Then MsgBox "Selection unchanged"

Cet exemple montre comment déplacer myRange vers la fin du premier mot de la sélection (après l'espace situé à droite).

Set myRange = Selection.Characters(1) 
myRange.EndOf Unit:=wdWord, Extend:=wdMove

Cet exemple montre comment ajouter un tableau, sélectionner la première cellule de la deuxième ligne et étendre la sélection vers la fin de la colonne.

Set myRange = ActiveDocument.Range(0, 0) 
Set myTable = ActiveDocument.Tables.Add(Range:=myRange, _ 
 NumRows:=5, NumColumns:=3) 
myTable.Cell(2, 1).Select 
Selection.EndOf Unit:=wdColumn, Extend:=wdExtend

Voir aussi

Range, objet

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.

Partage via